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Summary of Changes 



May 1989 Edition 



The following summarizes the changes made to the former (July 1988) edition of 
this manual that appear in this edition: 



Parti: Programmer's Guide 

About This Book. Removed first sentence in second paragraph of the first 
page that makes referece to full ANSI compatibility. 

Chapter 3. Technical correction in Fortran/Pascal interface examples.. 

Chapter 4* Added MALLOC and FREE function extensions to Chapter 4. 

Part II: Language Reference 

Chapter 4. Added a description of the POINTER specification statement. 

General Change highlighting of text that describes FORTRAN extensions 
from underline to shade. Made minor technical and editorial corrections 
throughout. 
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About Part I of This Book 
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Scope 



Part I of this book provides information on implementing MIPS-FORTRAN pro- 
grams using RISC/os™ and the RISCompiler™ system. Refer to Part II (the 
MIPS-FORTRAN Language Reference manual) for the syntax and description of 
the language. 

MIPS extensions provide full VMS FORTRAN™ compatibility to the extent pos- 
sible when not acutally using the VMS operating system or VAX data representa- 
tion. MIPS-FORTRAN also contains extensions that provide partial compatibil- 
ity with programs written in S VS FORTRAN™ and FORTRAN 66. 

MIPS-FORTRAN is a superset of VMS FORTRAN; the MIPS RISCompiler 
system can convert source programs written in VMS FORTRAN into machine 
programs executable under RISC/os™. 

Although the RISC/os programming environment includes all standard UNIX 
driver commands and system tools, this book does not describe those tools in de- 
tail For details, you may need to refer to the RISC/os User's Reference Manual 
and other associated publications listed at the end of this preface. 

Topics Covered 

This book has these chapters: 

• Chapter 1: Compiling, Linking and Running Programs, 

Gives an overview of components of the compiler system, de- 
scribes how to compile, link edit, and execute a MIPS- 
FORTRAN program. Also describes special considerations for 
programs running on a RISC/os systems, such as file format, er- 
ror handling, and programming invocation. 

• Chapter 2: Storage Mapping. Describes how the size and 
value ranges for variables, and how they are mapped to the stor- 
age of a RISComputer system. 

• Chapters: Language Interfaces. Provides reference and 
guide information on writing programs in FORTRAN, C, and 
Pascal that can communicate with each other. 

• Chapter 4: System Functions and Subroutines Describes 
functions and subroutines that can be used with a program to 
communicate with the RISC/os operating system. 

• Appendix A: Runtime Error Messages. Lists and explains the 
error messages that can be generated during program execution. 

• Index. Contains index entries for this publication. 
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For More Information 
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You may need to refer tolhe MIPS-FORTRAN Language Reference (Part II of 
this book) or one of the following as you use this manual: 

• MIPS Assembly Language Programmer's Guide (3201DOC) 

• RISC/os User's Reference Manual (3204DOC) 
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Compiling, Linking, 
and Running Programs 



This chapter contains the following major sections: 



• Compiling and Link Editing, which describes the compilation 
environment, how to compile and link FORTRAN programs. 
Examples are included to show how to create separate linkable 
objects written in FORTRAN, C, Pascal, or other languages sup- 
ported by the compiler system, and to link them into an executa- 
ble object program. 

• Driver Options, which gives an overview of the debugging, pro- 
filing, optimizing and other options provided with the FOR- 
TRAN f77 driver. 

• Object File Tools, which briefly summarizes the capabilities of 
the odump, nm, file, and size programs that provide listing and 
other information on object files. 

• Archiver, which summarizes the functions of the ar program 
that maintains archive libraries. 

• Run-Time Considerations, which describes how to invoke a 
FORTRAN program, how the operating system treats files, and 
run-time error handling. 

You should refer to the Release Notes that accompanied your FORTRAN instal- 
lation package. This document sometimes lists compiler enhancements, possible 
compiler errors, and how to circumvent them. 

Compiling and Linking 

Drivers 

Intelligent programs called drivers actually invoke the major components of the 
compiler system: the FORTRAN compiler, the uopt optimizer, the code genera- 
tor, the assembler, and the link editor. The f77 command runs the driver that 
causes your programs to be compiled, optimized, assembled, and link edited. 

The format of the f77 driver command is as follows: 

f77 [option] . .. filename. f 

where: 

f77 invokes the various processing phases that compile, optimize, assemble, 
and link edit the program. 
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Compilation 



option represents the driver options, through which you provide instructions 
to the processing phases. These options are discussed later in the chapter. 

filename! is the name of the file that contains the FORTRAN source state- 
ments. The file name must always contain the suffix/, for example 
myprog.f. 



The driver command f77 can both compile and link edit a source module. The 
next figure shows the primary drivers phases, and their principal inputs and out- 
puts for the source modules more/. 
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Note the following: 

• The name of the source file ends with the required suffix ./. 

• The driver produces a linkable object file when you specify the 
— c driver option. This file has the same name as the source file, 
except with the suffix .o. For example, the following command 
line: 

f77 more.f -c 

produces the more.o file in the above example 

• The default name of the executable object file is a.out For ex- 
ample, the command line 

£77 myprog.f 

produces the executable object a.out. 
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• You can specify a different name for the executable object using 
the driver option — o name, where name is the name of the exe- 
cutable object For example, the following command line 

f77 more.o -o exec.myprog 

link edits the object module more.o and produces an executable 
object named exec.myprog. 

The following command line 

£77 myprog.f -o exec.myprog 

compiles and link edits the source module myprog.f and pro- 
duces an executable object named exec.myprog. 

NOTE: If you specify more than one object file on the command line, the file 
containing the main program must be specified first. The link editor requires this 
information. 



Compiling Multi-Language Programs 



The compiler system provides drivers for other languages, including C, Pascal, 
COBOL, and PL/1. If one of these drivers is installed in your system, you can 
compile and link your FORTRAN programs to the language supported by the 
driver. (See the Language Programmer's Guide for a list of available drivers 
and the commands that invoke them; refer to Chapter 4 of this manual for con- 
ventions you must follow in writing FORTRAN program interfaces to C and Pas- 
cal programs.) 

When your application has two or more source programs written in different lan- 
guages, you should compile each program module separately with the appropri- 
ate driver and then link them in a separate step. You can create objects suitable 
for link editing by specifying the -c option, which stops the driver immediately 
after the assembler phase. For example: 



cc -c mam.c 
f77 -c rest.f 



The two command lines shown above produce linkable objects named main.o 
and rest.o, as illustrated in the next figure. 
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Linking Objects 



You can also use the f77 driver command to link edit separate objects into one 
executable program when the main program is written in FORTRAN, The driver 
recognizes the .o suffix as the name of a file containing object code suitable for 
link editing and immediately invokes the link editor. The following command 
line link edits the object created in the last example: 

f77 -o all main.o rest.o 

This statement produces the executable program object all Note that main.o 
contains the main routine and is specified, as required, first. If the main program 
is not written in FORTRAN, you should use the applicable driver. For example, 
if the main program were written in C, you would use the cc driver command, as 
shown below: 

cc -o all main.o rest.o -1F77 -1U77 -1177 -lisam ~lm 



( 



The figure below shows the flow of control for this link edit 
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Both f77 and cc use the C link library by default. However, the cc driver com- 
mand does not know the names of the link libraries required by the FORTRAN 
objects; therefore, you must specify them explicitly to the link editor using the 
— I option as shown in the example. The characters following —I are short-hand 
for link library files as shown in this table: 



—1 


Link Library 


Contents 


F77 
177 


/usr/libAibF77.a 
/usrAib/iibI77.a 


Fortran intrinsic function 

library 

Fortran I/O library 


U77 
isam 


/usrAib/libU77.a 
/usr/libAibisam.a 


Fortran UNIX interface 

library 

Indexed sequential access method library 


m 


/usr/lib/libm.a 


Math library 



See the FILES section in f77(l) of the User's Reference Manual for a complete 
list of the files used by the FORTRAN driver. See ld(l) in the same manual for 
information on specifying the —I option. 



Specifying Link Libraries 



As noted, if you compile multi-language programs, you must explicitly load any 
required runtime libraries. For example, if you write your main program in FOR- 
TRAN, and some procedures in Pascal, you must explicitly load the Pascal li- 
brary libp.a and the main library libm.a with the options -Ip and -Im (abbrevia- 
tions for the libraries libp.a and libm.a), as shown below, when you link these 
programs. 




To find the Pascal library, the link editor replaces the -I with lib and adds an .a 
after p. Then, it searches the I lib, lusrllib and lusrllocalllib directories fortius 
library. For a list of the libraries that a language uses, see the associated driver 
manual page cc(l), f77(l), pc(l), cobol(l), or pll(l) in the User's Reference 
Manual 

You may need to specify libraries when you use UNIX system packages that are 
not part of a particular language. Most of the manual pages for these packages 
list the required libraries. For example, the plotting subroutines require the li- 
braries listed in the pIot(3X) manual page; these libraries are specified as fol- 
lows: 
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% £ 77 main . 0' more , o rest.o -lp -lplot 



( 



To specify a library created with the archiver, type in the pathname of the library 
as shown below. 




NOTE: The link editor searches libraries in the order you specify. Therefore, if 
you have a library (for example libfft.o) that uses data or procedures from -lp, 
you MUST specify libfft.a first 



Driver Options 



The section contains a summary of the FORTRAN-specific driver options. See 
f77(l) in the User's Reference Manual for a complete description of the compiler 
options; see ld(l) in the same manual for a description of the link editor options. 
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Option Name 



Purpose 



-66 



-align8 



-alignl6 



-align32 



Permits compilation of FORTRAN 66 source programs. 

The following three options when used at compile time gen- 
erate various degrees of misaligned data in common blocks, 
and the code to deal with the misalignment. 

NOTE: When specified, these options can degrade program 
performance; -align8 causes the greatest degree of degrada- 
tion and -align32 causes the least. 

Permits objects larger than 8 bits to be aligned on 8-bit 
boundaries. Using this option will have the largest impact on 
performance. 

Permits objects larger than 16 bits to be aligned on 16-bit 
boundaries; 16-bit objects must still be aligned on 16-bit 
boundaries (MC6800Q4ike alignment rules). 

Permits objects larger than 32 bits to be aligned on 32-bit 
boundaries; 16-bit objects must still be aligned on 16-bit 
boundaries, and 32-bit objects must still be aligned on 
32-bit boundaries. 

You must specify this option in the compilation of all mod- 
ules that reference or define common blocks with misaligned 
data. Failure to do so could cause core dumps (if the trap 
handler is not used), or mismatched common blocks. 

To load the system libraries capable of handling misaligned 
data, use the -L/usr/lib/align switch at load time. The trap 
handler may be needed to handle misaligned data passed to 
system libraries not included in the /usrAib/align directory 
(see fixade(3f). 
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Option Name 



Purpose 



-automatic 



--check bounds 



-~co!72 



-CO1120 



Causes the current values of local variables to be saved 
each time procedures is called. This ensures that the correct 
values are preserved for the calling programs regardless of 
calls to the same procedure by other programs. 

Generate code for runtime subscript range checking. The de- 
fault suppresses range checking. 

Causes an error message to be issued a run-time when the 
value of an array subscript expression exceeds the bounds 
declared for the array. 

Sets the source statement format to the following: 



Column 


Contents 


1-5 
6 

7-72 
73-end 


Statement label 
Continuation indicator 
Statement body 
Ignored 



If the source statement contains fewer than 72 characters, 
no blank padding occurs; the TAB-format facility (de- 
scribed in Chapter 1) is disabled. 

This option provides the SVS FORTRAN 72-column op- 
tion mode. 

Sets the source statement format to the following: 



Column 


Contents 


1-5 
6 

7-120 
121-^nd 


Statement label 
Continuation indicator 
Statement body 
Ignored 



If the source statement contains fewer than 120 characters, 
no blank padding occurs; the TAB-format facility (de- 
scribed in Chapter 1) is disabled. 

This option provides the SVS FORTRAN default mode. 
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Option Name 



Purpose 



-cpp 



-d lines 



extend source 



-F 



Runs the C macro preprocessor on all source files 
(including those created by RATFOR or EFL) before 
compilation. 

Causes any lines with a D in Column 1 to be compiled. By 
default, the compiler treats all lines with a character in 
Column 1 as comment lines. 

flags is a valid option for the EFL preprocessor. The 
valid flags are listed in the efl(l) description . 

The EFL input filename is filename. e; the resulting out- 
put is placed in filename. You must specify the -K op- 
tion to retain the output file. 



Sets the source statement format to the following: 



Column 


Contents 


1-5 
6 

7-132 
133-end 


Statement label 
Continuation indicator 
Statement body 
Warning message issued 



If the source statement contains fewer than 132 characters, 
blanks are assumed at the end; the ability of TAB- 
formatted lines to extend past Column 132 is disabled. 

This option provides VMS FORTRAN 132-column mode, 
except that a warning, instead of fatal, error message is 
generated when text extends beyond Column 132. 

Calls the EFL and RATFOR preprocessors only, and puts 
output in an .f file. Doesn't produce .o files. 
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Option Name 



Purpose 



-i2 



-in 



~N[qxscnI] nnn 



-noextend source 



-noi4 



All small integer contents become integer*!. All variables 
and functions implicitly or explicitly declared type integer 
or logical (without a size designator, i.e. *2, *4, etc.) will 
be integer*! or logical*2 respectively. 

If the generic function results don't determine the preci- 
sion of an integer-valued intrinsic function, the compiler 
chooses the precisions that returns integer*2. The default 
is integer*4. Note that integer*2 and logical*2 quantities 
don't obey the FORTRAN standard rules for storage loca- 
tion. 

Applies the M4 macro preprocessor to source files to be 
transformed with EFL or RATFOR. The driver puts the 
result in a .p file. Unless you specify the -K option, the 
compiler removes the .p file upon completion. See the 
m4(l) description in the User's Reference Manual for de- 
tails. 



nnn is a decimal number changing the default size of the 
static tables in the compiler. See the f77(l) description in 
the User's Reference Manual for details. 

Sets the source statement format to the following: 



Column 


Contents 


1-5 
6 

7-72 
73~€nd 


Statement label 
Continuation indicator 
Statement body 
Ignored 



If the source statement contains fewer than 72 characters, 
then blanks are assumed at the end; the ability of TAB- 
formatted lines to extend past Column 72 is disabled. 

This option provides the VMS-FORTRAN default mode, 
except that a warning, instead of a fatal, error message is 
generated when text extends beyond Column 132. 



Same as -42 option. 
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Option Name 


Purpose 


-nof77 


Same as -onetrip switch except for the following: 




1. EXTERNAL statements have an altered 
syntax and functionality. 




2. The default value for the BLANK= clause 
in an OPEN statement is 'ZERO*. 




3. The default value for the STATUS= 
clause in an OPEN statement is 'NEW. 


-onetrip 
-1 


Compiles DO loops so that they execute at least 
once if reached. By default, DO loops aren't executed if 
the upper limit is smaller than the lower limit. Similar to 
the -nof77 option. 


-Rflags 


flags is a valid option for the RATFOR preprocessor, the 
flags are given in the ratfor(l) page in the User's Refer- 
ence Manual. 




The RATFOR input file name is filenames 

the resulting output is placed in filename f. You must 

specify the -K option to retain the output file. 


-static 


Local variables are saved in one static location, 
subsequent calls to the procedure containing the variables 
can change their values. This overrides the default 
-automatic option. 


-systype name 


Use the named compilation environment name. See 
compilation(7) for the compilation environments that 
are supported and their names. 


-U 


Causes the compiler to recognize upper- and lowercase 
alphabetic characters. For example, the compiler con- 
siders a and A as distinct characters. 


-u 


Turns off FORTRAN default data typing and 
any data typing explicitly specified in an IMPLICIT 
statement. Forces the explicit declaration of all data 
types. 


-w66 


Suppresses FORTRAN 66 compatibility 
warning messages. 


-vms 


Causes all defaults to be in accordance with 
VMS-FORTRAN specifications. 
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The compiler system provides a source level, interactive debugger called dbx 
that you can use to debug programs as they execute. With dbx you can control 
program execution by setting breakpoints; then, when the programs halts at a 
breakpoint, you can monitor what is happening, modify values, and evaluate re- 
sults. Dbx keeps track of variables, subprograms, subroutines, and data types in 
tenns of the symbols used in the source language. You can use this debugger to 
access the source text of the program, to identify and reference program entities, 
and to detect errors in the program's logic. 

The next example shows a compilation with the — g option and the start of a dbx 
session. 



c 



mips [ 2 ] f?7 myprog.f ~g <#- 

mips [3] dbx ^ — — * 



enter object file name (default is 'a.out') 

dbx version 1.30 

Copyright 1986 MIPS Computer Systems Inc. 

Type 'help' for help. 

reading symbolic information . . . 

main: Source not available 



— —— Compile with full source-debugging 
- , W ^, , . , « WH « W ,^— Invoke the debugger 
<RETURN> «^— — Specify a,out as object 



(dbx) help 



Enter help to display dbx commands available. 



MOST USED COMMANDS 

quit [ ! ] ■ 

run argl arg2 . . . < f 1 >& f2 

stop at <line> 

[n] cont <signal> 

return 

print <exp> ... 

printf "string", exp, . . . 

where [n] 

status 

func <proc> 

<exp>[/ | ?]<count><format> 

file <file> 

list <exp>;<int> 

sh < she 11 command> 



quit dbx 

- begin execution of the program 
suspend execution at the line 
continue with signal 

continue until the current procedure returns 
print the value of the expressions 

- print expressions using format string (C) 
print currently active procedures (stack trace) 
print trace/stop/record's in effect 

move to activation level of <proc> 

- display count number of formatted memory item 
change current file to file 

list source lines at <exp> for <int> lines 
perform shell command 



HISTORY, ALIAS, and INPUT/OUTPUT REDIRECTION 



quit [ ! ] 

alias 

alias name "string" 



- quit dbx 

- print aliases 

- set name to alias "string" 



C 



Compiling a FORTRAN Program and Invoking the Debugger (dbx) 



Reference Information 



For a complete list of —g driver options, see f77(l) manual page in the User's 
Reference Manual:, see dbx(l) in the same manual for information on the debug- 
ger. 



( 
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Profiling 



The compiler system permits the generation of profiled programs that, when exe- 
cuted, provide operational statistics. This is done through driver option -p 
(which provides pc sampling information) and the pixie and prof programs. 

Below is an example of one use of the profiling facility, where default options 
produce a pc-sampling listing. However, a variety of other options and methods 
of profiling are available; if you wish to learn more about them (and the informa- 
tion displayed in the pc-sampling listing), read Chapter 4 of the Language Pro- 
grammer's Guide, which describes the advantages and methods of profiling, and 
gives examples of the various options and commands to achieve the desired re- 
sults. See also prof(l) for detailed reference information. 



mips [4] 
mips [5] 
mips [6] 



f77 myprog.f -p ■ 
myprog «#— 
prof myprog * 



> myprog 



Compile with profiling 



Execute resulting object 



Run profiler to display pc-sampling feature 



Profile listing generated Wed Mar 30 10:27:03 1988 with: 
prof myprog 

V$ADDDE8 is an alternate entry within V$SUBDE8 ( . ./v_addde8 .s) 
blkclr and bzero (bzero.s) synonymous: using latter 

* -ptrocedures] using pc-sampling; 

* sorted in descending order by total time spent in each procedure; 

* unexecuted procedures excluded 

Each sample covers 8.00 byte(s) for 20% of 0.0500 seconds 
%time seconds cum % cum sec procedure (file) 



0.01 P$DISPLAY.PUT_PART ( . . /displa .pll) 
0.02 tskip (termcap.c) 
0.03 read (read.s) 



20.0 


0.0100 


20.0 




20,0 


0.0100 


40.0 




20. Q 


0.0100 


60.0 


• 
• 



Optimizing 



Generating Profile Information on a FORTRAN Program 

The table belows summarizes the optimizing function available: 
Option Result 

— 02 The global optimizer (uopt) phase executes. It performs optimization 
only within the bounds of individual compilation units. 

— 01 Default option. This option causes the code generator and assembler 
phases of compilation to improve the performance of your executable 
object. 

— O0 No optimization. 
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Performance 



The default option («— 01) causes the code generator and the assembler to per- 
form basic optimizations such as constant folding, common subexpression elimi- 
nation within individual statements, and common subexpression elimination be- 
tween statements. 



The global optimizer— invoked by the —02 option— is a single program that 
improves the performance of an object programs by transforming existing code 
into more efficient coding sequences. Although the same optimizer processes all 
compiler optimizations, it does distinguish between the various languages sup- 
ported by the compiler system programs to take advantage of the different lan- 
guage semantics involved. 

See the Languages Programmer's Guide for details on the optimization tech- 
niques used by the compiler and tips on writing optimal code for optimizer proc- 
essing. 

In addition to the optimizing options, the compiler system provides other options 
that can improve the performance of your programs: 

• The —feedback and —cord options (see f77(l) in the User's 
Reference Manual) together with the pixie(l) and prof(l) utili- 
ties can be used to reduce possible machine cache conflicts. See 
Reducing Cache Conflicts in Chapter 4 of the Language Pro- 
grammer's Guide for an example using these facilities. 

• The link editor — G num and — bestGnum options offer a 
means to control the size of the global data area, which can offer 
significant performance improvements. See Limiting the Size 
of the Global Pointer Data in Chapter 4 of the Language Pro- 
grammer's Guide and ld(l) in the User's Reference Manual for 
more information. 

® The — jmopt option permits the link editor to fill certain instruc- 
tion delay slots not filled by the compiler front end. This option 
may improve the performance of smaller programs not requiring 
extremely large blocks of virtual memory. See the Id(l) for 
more information. 



Byte Ordering Options 



The compiler can produce program objects executable on target machines with 
either a big-endian (with the — EB option ) or little-endian (—EL) byte ordering 
scheme. By default, the compiler produces program objects executable on target 
machines with the same byte ordering scheme as the compilation machine. See 
Appendix D in the Language Programmer's Guide for a description of of big 
and little endian byte ordering. 



< 
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Object File Tools 

The following tools provide information on object files as indicated: 

• odump: The odump tool lists headers, tables, and other selected 
parts of an object or archive file. An explanation of the informa- 
tion provided by odump can be found in Chapters 10 and 11 of 
the Assembly Language Programmer' s Guide. 

• nm: The nm tool prints symbol table information for object files 
and archive files. 

• file: The file tool lists the properties of program source, text, 
object, and other files. This tool often erroneously recognizes 
command files as C programs. It does not recognize Pascal or 
LISP programs. 

• size: The size tool prints information about the text, rdata, data, 
sdata, bss, and sbss sections of the specified object or archive 
file(s). The contents and format of section data are described in 
Chapter 10 of the Assembly Language Programmer's Guide. 

For more information on these tools, see odump(l), nm(l), file(l), or size(l) in 
the User's Reference Manual. 



Archiver 



An archive library is a file that contains one or more routines in object (.o) file 
format; the term object as used in this chapter refers to an .o file that is part of an 
archive library file. When a program calls an object not explicitly included in the 
program, the link editor (Id) looks for that object in an archive library. The edi- 
tor then loads only that object (not the whole library) and links it with the calling 
program. 

The archiver (ar) creates and maintains archive libraries and has the following 
main functions: 

• Copying new objects into the library 

• Replacing existing objects in the library 

• Moving objects about the library 

• Copying individual objects from the library into individual ob- 
ject file. 

See the ar(l) in the User's Reference Manual for additional information on the 
archiver. 
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Invoking a Program 



File Formats 



To run a FORTRAN program, invoke the executable object module produced by 
the f77 command, enter the name of the module as a command. By default, the 
name of the executable module is a.out. If you included the -o filename option 
on the Id (or f77) command line, the executable object module has the name that 
you specified. 

FORTRAN requires four kinds of external files: 

• sequential formatted 

• sequential unformatted 

• direct formatted 

• direct unformatted. 

The operating system implements such files as ordinary files and assumes that 
they have the proper internal structure. 

FORTRAN I/O is based on records. When a program opens a direct file, the re- 
cord length of the records must be given. The FORTRAN I/O system uses the 
length to make the file appear to be made up of records of the given length. 
When the record length is 1, the system treats the files as ordinary system files 
(as byte strings, in which each byte is addressable). A READ or WRITE request 
on such files consumes bytes until satisfied, rather that restricting itself to a sin- 
gle record. 

Because of special requirements, sequential unformatted files will probably be 
read or written only by FORTRAN I/O statements. Each record is preceded and 
followed by an integer containing the length of the record in bytes. 

During a READ, FORTRAN I/O breaks sequential formatted files into records 
by using each new-line indicator as a record separator. The FORTRAN 77 
American National Standard does not define the required result after reading past 
the end of a record; the I/O system treats the record as being extended by blanks. 
On output, the I/O system writes a new-line indicator at the end of each record. 
If a user program also writes a new-line indicator, the I/O system treats it as a 
separate record. 



Preconnected Files 



c 



( 



The following table shows preconnected files at program start. 



Unit# 


Unit 


5 
6 



Standard Input 
Standard Output 
Standard Error 



( 
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All other units are also preconnected when execution begins. Unit n is connected 
to a file name fort.fl. These files need not exist, nor will they be created unless 
their units are used without first executing an open. The default connection is for 
sequentially formatted I/O. 



File Positions 



The FORTRAN 77 standard does not specify where OPEN should initially posi- 
tion a file explicitly opened for sequential I/O. The I/O system positions the file 
to start-of-file, both for input and output The execution of an OPEN statement 
followed by a WRITE on an existing file causes the file to be overwritten, eras- 
ing any data in the file. In a program called from a parent process, Units 0, 5, 
and 6 are positioned as they come from the parent process. 



Unknown File Status 



When die parameter STATUS=UNKNOWN is specified in an OPEN statement, 
the following occurs: 

• If the file doesn't already exists, it is created and positioned at 
start-of-file. 

• If the file already exists, it is opened and any data in the file is 
truncated. 



Run-Time Error Handling 



When the FORTRAN run-time system detects an error, the following action 
takes place: 

• a message describing the error is written to the standard error 
unit (Unit 0) See Appendix A for a list of the error messages 
and the appropriate action to take the action to take when one is 
received. 

• If thcf77-dump-flag environment variable is set to yes, the pro- 
gram is terminated with a signal 

• a core file, which can be used with dbx (the debugger) to inspect 
the state of the program at termination, is produced. For more 
information on dbx, see the Languages Programmer's Guide. 

To invoke dbx using the core file, enter the following: 

% dbx binary-file core 

where binary Jile is the name of the object file output (the default is a.out). For 
more information on dbx, see Chapter 1. 
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This chapter describes how the FORTRAN compiler implements size, alignment, 
and value ranges for the various data types. This information is summarized in 

Table 1.1. 



Type 


Synonym 


Size 


Alignment 


Value Range 


byte 


integer* 1 


8 bits 


byte 


-128.. 127 


integer* 1 




8 bits 


byte 


-128.. 127 


integer's 




16 bits 


halfwordi 


-32,768 to 32,767 


integer 


integer*4 


32 bits 


word 2 


-2 31 ..2 31 -1 


logicaM 




8 bits 


byte 


0..1 


logical*2 




16 bits 


halfword 1 


0..1 


logical 


!ogical*4 


32 bits 


word 2 


0..1 


real 


real*4 


32 bits 


word 2 


See Note 1. 


double precision 


real*8 


64 bits 


doubleword 3 


See Note 1. 


complex 


complex*8 


64 bits 


word 




double complex 


complex*"! 6 


128 bits 


doubleword 3 




character 




8 bits 


byte 


-128.. 127 


1 Byte boundary divisible by two. 






2 Byte boundary divisible by four. 






3 Byte boundary divisible by eight. 







Table 1.1. Size, Alignment, and Value Range of FORTRAN Data Types 

See the notes starting on the following pages for details on some of the items in 
the table. 

1, Approximate valid ranges for real and double are: 





Maximum Vaiue 


real 
double 


3.40282356*10 38 
1.797 6931348 623158 *10 308 
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Minimum Values 




Denormalized 


Normalized 


real 
double 


1.40129846*10~ 46 
4.940 6564584124654*10~ 324 


1.17549429*10~ 38 
2. 22507385850720 12*10" 308 



c 



2. 



3. 



NOTE: When a REAL* 16 declaration is encountered, the compiler issues a 
warning message. REAL* 16 items are allocated 16 bytes of storage per ele- 
ment, but only the first eight bytes of each element are used; those eight 
bytes are interpreted according to the format for REAL*8 floating numbers. 

When a REAL* 16 constant is encountered in a source program, the compiler 
issues a warning message. The constant is treated as a double precision 
(REAL*8) constant. REAL* 16 constants have the same form as a double 
precision constant, except he exponent indicator is Q instead of D. 

Table 1.1 states that double precision variables always align on a 
doubleword boundary. However, FORTRAN permits these variables to align 
on a word boundary if a common statement or equivalencing requires this. 

Forcing integer, logical, real, and complex variables to align on a halfword 
boundary is not allowed., except as permitted by the «™align8, -alignl6, and 
~align32 command line options. See Chapter 1. 

With the exception of equivalencing a double precision data item to a 32-bit 
data item, no other equivalencing can be done that will misalign the items. 



c 



Within a program, integer*!, integer*2, and integer*4 are interchangeable 
if integer*2 doesn't force the integer*4 to align on a halfword boundary 
and if integer*4 isn't assigned a value outside the allowed range. 

A complex data item is an ordered pair of real numbers; a double-complex 
data item is an ordered pair of double-precision numbers. In each case, the 
first number represents the real part and the second represents the imaginary 
part. 

Logical data items denote only the logical values TRUE and FALSE (written 
as: .true, or false.). 

You must explicitly declare an array in a dimension declaration or in a data 
type declaration. The compiler follows these rules for dimension support: 

• Allows up to seven dimensions. 

• Assigns a default of one to the lower bound, if a lower bound 
isn't explicitly declared in the dimension statement. 

• Creates an array the size of its element type times the number of 
elements. 



c 
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• Stones arrays in column-major order. 

8. The following rules apply to shared blocks of data set up by the common 
statements: 

• The compiler assigns data items in the same sequence as they 
appear in the common statement(s) defining the block. 

• You can allocate both character and noncharacter data in the 
same common block. 

• When a common block appears in multiple program units, the 
compiler allocates the same size for that block in each unit, even 
though the size required may differ (due to varying element 
names, types, and ordering sequences) from unit to unit. The 
size allocated corresponds to the maximum size required by the 
block among all the program units. 
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This appendix describes the coding interfaces between FORTRAN programs and 
programs written in C or Pascal; it gives rules and examples for calling and pass- 
ing arguments among these languages. 

You may need to refer to other sources of information as you read this appendix: 

• For information on storage mapping — how the variables of the 
various languages appear in storage — refer to Chapter 2 (for 
FORTRAN) of this manual and to Chapter 2 in the Languages 
Programmer's Guide (for other languages). 

• For information on the standard linkage conventions the RIS- 
Compiler system uses in generating code, see Chapter 7 of the 
MIPS Assembly Language Programmer's Guide. 

For information on built-in functions that help you communicate with non-FOR- 
TRAN programs, see Chapter 4 of this manual. 



FORTRAN/C Interface 
Procedure and Function Declarations 



Names 



This section discusses items you should consider before writing a call between 
FORTRAN and C. 



In calling a FORTRAN subprogram from C, the C program must append an un- 
derscore O to the name of the FORTRAN subprogram. For example, if the 
name of the subprogram is matrix, then call it by the name matrix^. When FOR- 
TRAN is calling a C function, the name of the C function must end with an un- 
derscore. 

Note that only one main routine is allowed per program. The main routine can be 
written in either C or FORTRAN. Below is an example of a C and a FORTRAN 
main routine. 



c 


FORTRAN 


main() { 

print f ("hi!\n") ; 

} 


write (6, 10) 
10 format (' hi !') 

end 
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Invocations 



Invoke a FORTRAN subprogram as if it were an integer-valued function whose 
value specifies which alternate return to use. Alternate return arguments (state- 
ment labels) are not passed to the subprogram but cause an indexed branch in the 
calling subprogram. If the subprogram is not a function and has no entry points 
with alternate return arguments, the returned value is undefined. The FORTRAN 
statement 

call nret(*l,*2,*3) 

is treated exactly as if it were the computed goto 

goto {If 2, 3) , nret () 

A C function that calls a FORTRAN subprogram can usually ignore the return 
value of a FORTRAN subroutine; however, the C function should not ignore the 
return value of a FORTRAN function. The table below shows equivalent func- 
tion and subprogram declarations in C and FORTRAN programs: 



c 



C Function Declaration 


FORTRAN Declaration 


double dfortj} 
double rfortj) 
int ifortj) 
intifortj) 


double precision function dfort() 
real function rfortQ 
integer function ifortQ 
logical function IfortQ 



Note the following: 



Avoid calling FORTRAN functions of type float, complex, and 
character from C. 

You cannot return complex types between C and FORTRAN. 

A character-valued FORTRAN subprogram is equivalent to a C 
language routine with two extra initial arguments: a data address 
and a length. 

Thus: 



c 



character*15 function g(...) 



is equivalent to: 



char result [] ; 
long int length; 
g_(result, length, 



and could be invoked in C by: 



char chars [15] ; 
g_(chars r 15) ; 



c 
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Arguments 



The following rules apply to arguments passed between FORTRAN and C: 

1 . All arguments must be passed by reference. That is, the argument must spec- 
ify an address rather than a value. Thus, to pass constants or expressions, 
their values must be first stored into variables and then the address of the 
variable passed. 

2. When passing the address of a variable, the data representations of the vari- 
able in the calling and called routines must correspond, as shown in Table 
CI. 



FORTRAN 


c 


integer*2 x 


short intx; 


integer x 


long intx; or just intx; 


logical x 


long int x; 


real x 


float x; 


double precision x 


double x; 


complex x 


struct { float real, imag; } x; 


double complex x 


struct { double dreal, dimag; } x; 


character*6 x 


charx[6]; 



Table C.h Equivalent FORTRAN and C Data Types 

Note that FORTRAN requires that each integer, logical, and real variable 
occupy 32 bits of memory. 

3. The FORTRAN compiler may add items not explicitly specified in the 
source code to the argument list. The compiler adds the following items un- 
der the conditions specified: 

• Destination address for character functions, when called. 

• Length of a character string, when an argument is the address of 
a character string. 

When a C program calls a FORTRAN subprogram, the C program must ex- 
plicitly specify these items in its argument list in the following order: 

1 . Destination address of character functions. 

2. Normal arguments (addresses of arguments or functions). 

3. Length of character strings. The length must be specified as an 
absolute value or integer variable. The next two examples illus- 
trate these rules. 
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Example 1: The following example shows how a C routine must specify the 
length of a character string (which is only implied in a FORTRAN call). 



c 



FORTRAN call to sam* 



external f 
character*? s 
integer b(3) 



Length is implicit. 




call sam(f, b(2) f s) 




C call to sain* 



int f ( ) ; 
char s [7] ; 

long int b [3] ; 



Length of s is explicit. 




sam (f, &b[l], s, 7) 




*sam is a routine written in FORTRAN. 

Example 2: The following example shows how a C routine can specify the 
destination address of a FORTRAN function (which is only implied in a 
FORTRAN program). 



FORTRAN Call to f* 



external f 

character*10 f,g 

g = "H) ,< f(flHHmgg(g)jAngth(f)) 

implied. 



C Call to f* 



char s [10] 
f_(&s f 10) ;<- 



Address and length explicit. 



Function f* 

character*10 function f() 
f = '0123456789%—-. 

l*d Urn at P assed address. 



Moves value to location 



*f is a function written in FORTRAN. 



c 



Array Handling 



FORTRAN stores arrays in column-major order with the leftmost subscript vary- 
ing the fastest. C, however, stores arrays in the opposite arrangement, with the 
rightmost subscripts varying the fastest, which is called row-major order. Here's I 

how the layout of FORTRAN arrays and C arrays looks: 
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FORTRAN 



integer t (2 f 3) 
t(l,l) f t(2,l), t(l,2), t(2,2), t(l,3), t(2 f 3) 



int t [2] [3] / 
t[0][0], t[0][l], t[0][2], t[l][0], t[l][l], t[l][2] 



Note that the default for the lower bound of an array in FORTRAN is 1 , whereas 
it is in C 

When a C routine uses an array passed by a FORTRAN subprogram, the dimen- 
sions of the array and the use of the subscripts must be interchanged, as shown in 
the following example. 



FORTRAN caller: 



10 



intege 
call p(a 
write (6 
format ( 
stop 
end 




.0)a(l,3) 
:,19) 



called routine: 



void 

P_( a, i, j, 

intjLl* *j, 



/^|||| Dimensions and subscripts 
x§/ are reversed. 



1 is subtracted fro _ 
iilip the indices j and i are 
pointers to integers 




The FORTRAN caller prints out the value 99. Note the following: 



IP Because arrays are stored in column-major order in FORTRAN 
and row-major order in C, the dimension and subscript specifi- 
cations are reversed. 

IIP In FORTRAN, the lower-bound default is 1, whereas it is in 
C; therefore, 1 must be subtracted from the indices in the C rou- 
tine. Also, because FORTRAN passes parameters by reference, 
the *j and *p are pointers used in the C routine. 

Accessing Common Blocks of Data 

The following rules apply to accessing common blocks of data: 

• FORTRAN common blocks must be declared by common state- 
ments; C can use any global variable. Note that the common 
block name in C (sam_) must end with an underscore. 

• Data types in the FORTRAN and C programs must match unless 
you desire equivalencing. If so, you must adhere to the align- 
ment restrictions for the data types described in Chapter 2. 
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* If the same common block is of unequal length, the largest of the 
sizes is used to allocate space. 

• Unnamed common blocks are given the name _BLNK_. 

The following gives examples of C and FORTRAN routines that access common 
blocks of data. 



c 



c 


FORTRAN 


struct S {int i; float j;}r_; 

main() { 

sam_() ; 

printf ("%d %f\n", r_.i, r_.j); 

} 


subroutine sam() 
common /r/i,r 
i = 786 
r ~ 3.2 
return 



The C routine prints out 786 and 3.2. 

FORTRAN/Pascal Interfaces 



This section discusses items you should consider before writing a call between 
FORTRAN and Pascal. 



Procedure and Function Declarations 



Names 



In calling a FORTRAN program from Pascal, you must place an underscore (J 
as a suffix to routine names and data names. 

To call FORTRAN from Pascal or vice versa, specify an underscore (J as the 
suffix of the name of the FORTRAN or Pascal routine being called. For exam- 
ple, if the routine is called matrix, then call it by the name matrix^. When FOR- 
TRAN is calling Pascal, the name of the called Pascal routine must end with an 
underscore. 

In Pascal, always declare the external FORTRAN subprogram or function with 
VAR parameters. 

Note that only one main routine is allowed per program. The main routine can be 
written either in Pascal or FORTRAN. Below is an example of a Pascal and a 
FORTRAN main routine. 



Pascal 


FORTRAN 


program p; 
begin 

writelnC'hi!") ; 
end. 


write(6,10) 
format ( ' hi ! ' ) 
stop 
end 



( 



( 
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Invocation 



If you have alternate return labels, you can invoke a FORTRAN subprogram as if 
it were an integer-valued function whose value specifies which alternate return 
to use. Alternate return arguments (statement labels) are not passed to the func- 
tion but cause an indexed branch in the calling subprogram. If the subprogram is 
not a function and has no entry points with alternate return arguments, the re- 
turned value is undefined. The FORTRAN statement 

call nret(*l,*2,*3) 

is treated exactly as if it were the computed goto 

goto (1,2,3), nret() 

A Pascal function that calls a FORTRAN subroutine can usually ignore the return 
value. The table below shows equivalent function declarations in Pascal and 
FORTRAN. 



Arguments 



Pascal 


FORTRAN 


function dfort _(): double; 
function rfortj): real; 
function ifortj): integer; 


double precision function dfortQ 
real function dfortQ 
integer function ifortQ 



FORTRAN'S built-in data type complex doesn't exist in Pascal and therefore 
there isn't a compatible way of returning these values from Pascal. 

A character-valued FORTRAN function is equivalent to a Pascal language rou- 
tine with two extra initial arguments - a data address and a length. 

The following FORTRAN declaration: 

character*15 function g ( . . . ) 
is equivalent to the Pascal code: 

type string = array [1 .. 15] ; 
var 

length: integer; 

a : array[1..15] of char; 
procedure g__(var a: string; length: integer; . . . ) ;external; 

and could be invoked by the Pascal line: 

g_(a, 15); 

The following rules apply to arguments specifications in both FORTRAN and 
Pascal programs: 

1. All arguments must be passed by reference. That is, the argument must spec- 
ify an address rather than a value. Thus, to pass constants or expressions, 
their values must be first stored into variables and then the address of the 
variable passed. 
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2. When passing the address of a variable, the data representations of the vari- 
able in the calling and called routines must correspond, as shown in Table 
C.2. 



c 



Pascal 


FORTRAN 


integer 


integerM, integer, logical 


cardinal 




char 


character 


boolean 


logical*! 


enumeration 




real 


real, realM 


double 


double precision, real*8 


procedure . . 


subroutine 


record 

r . : real; 
i : real; 

end; 


complex 


record 

r : double; 
i : double; 
end; 


double complex 



Table C.2. Equivalent FORTRAN and Pascal Data Types 

Note that FORTRAN requires that each integer, logical, and real variable 
occupy 32 bits of memory. 

Functions of type integer, real, or double precision are interchangeable be- 
tween C and Pascal, and require no special considerations. 

3. The FORTRAN compiler may add items not explicitly specified in the 
source code to the argument list. The compiler adds the following items un- 
der the conditions specified: 

• Destination address for character functions, when called. 

• Length of character strings, when an argument is the address of a 
character string. 

When a Pascal program calls a FORTRAN subprogram, the Pascal program 
must explicitly specify these items in its argument list in the following order: 

1 . Destination address of character functions. 

2. Normal arguments (addresses of arguments or functions). 

3. Length of character strings. The length must be specified as an 
absolute value or integer variable. The next two examples illus- 
trate these rules. 



( 



( 
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Example: The following example shows how a Pascal routine must specify 
the length of a character string (which is only implied in a FORTRAN call). 



FORTRAN call to sam* 



external f 
character*7 s 
integer b(3) 



Length of s 
is implicit. 




call sam(f , b (1) F s) 




Pascal call to sam* 

procedure f ; external; 



s: array[1..7] of char; 
b: ^arrayl l-^-31 , of integer; 




Length of s 
is explicit. 



*sam is a routine written in FORTRAN. 



Execution-Time Considerations 



Array Handling 



Pascal checks certain variables for errors at execution time, whereas FORTRAN 
doesn't. For example, in a Pascal program, when a reference to an array exceeds 
its bounds, the error is flagged (if runtime checks aren't suppressed). You cannot 
expect a FORTRAN program to detect similar errors when you pass data to it 
from a Pascal program. 

FORTRAN stores arrays in column-major order where the leftmost subscripts 
vary the fastest. Pascal, however, stores arrays in the opposite arrangement, with 
the rightmost subscript varying the fastest, which is called row-major order. 
Also, FORTRAN'S default lower bound for arrays is 1. Pascal has no default; 
the lower bound must be explicitly specified. Here's how the different layouts 
look: 



Pascal 



var t: array [1. .2 f 1. .3] of integer; 
t[l,l], t[l,2], t[l,3], t[2,l], t[2,2], t[2,3] 



FORTRAN 



integer t (2, 3) 
t(l,l), t(2,l), t(l,2), t(2,2), t(l,3), t<2,3) 



When a Pascal routine uses an array passed by a FORTRAN program, the dimen- 
sions of the array and the use of the subscripts must be interchanged. The exam- 
ple below shows the Pascal code that interchanges the subscripts. 
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In the following example, the FORTRAN routine calls the Pascal procedure p, 
receives the value 99, and prints it out. 



c 



FORTRAN 


Pascal 


integer a (2, 3) 


type arry = array [1.. 3 , 1..2]; 




call p(a, l f 3 ) 


procedure p__( var a: arry; var i, 


j : integer) ; 


write(6,10)a(l,3) 


begin 




10 format (Ix, 19) 


a[j,i] :- 99; 




stop 


end 




end 







In the next example, the Pascal routine passes the character string "0123456789' 
to the FORTRAN subroutine s_, which prints it out and returns. 



Pascal 




type string = array[1..10] of 
procedure s__( var a: string; . 
/* Note the underbar */ 


char; 
L: integer) ; external; 


program s; 
var 




r: strings- 
begin 

r:= "0123456789"; 

s_(r,10);" 
end. 




FORTRAN 




subroutine s(c) 
character*10 c 
write (6 r 10) c 
10 format (6, 10) c 
return 

end 





Accessing Common Blocks of Data 

The following rules apply to accessing common blocks of data: 

• FORTRAN common blocks must be declared by common state- 
ments; Pascal can use any global variable. Note that the com- 
mon block name in Pascal (samj must end with an underscore. 

• Data types in the FORTRAN and Pascal programs must match 
unless you desire implicit equivalencing. If so, you must adhere 
to the alignment restrictions for the data types described in 
Chapter 2. 

• If the same common block is of unequal length, the largest of the 
sizes is used to allocate space. 

• Unnamed common blocks are given the name BLNK , 

(where _ is the underscore character). 



( 
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Example 



The following gives examples of FORTRAN and Pascal routines that access 
common blocks of data. 



Pascal 


FORTRAN 


var 

a_: record 

i : integer; 
r : real; 
end; 

procedure sairw 
external; 


subroutine sam() 
common/a/i, r 
write (6 f 10) i f r 
10 format (Ix, 15, F5.2) 
return 
end 


program s; 




begin 
a___.i := 4; 
a . r : = 5.3; 




sam___; 
end. 





The FORTRAN routine prints out 4 and 5.30. 
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System Functions 
and Subroutines 



This chapter describes extensions to FORTRAN 77 that are related to the UMIPS 
operating and compiler systems. 

Library Functions 

The following tables summarize the functions that are available in the FOR- 
TRAN run-time library. These functions provide an interface from FORTRAN 
programs to the system in the same manner as the C library does for C programs. 
The compiler automatically loads an interface routine when it processes the asso- 
ciated call. 



Function 


Purpose 


abort 


abnormal termination 


access 


determine accessibility of a file 


alarm 


execute a subroutine after a specified time 


chdir 


change default directory 


chmod 


change mode of a file 


ctime 


return system time 


dtime 


return elapsed execution time 


etime 


return elapsed execution time 


exit 


terminate process with status 


fdate 


return date and time in an ASCII string 


fgetc 


get a character from a logical unit 


flush 


flush output to a logical unit 


fork 


create a copy of this process 


iputc 


write a character to a FORTRAN logical unit 


fseek 


reposition a file on a logical unit 


fstat 


get file status 


ftell 


reposition a file on a logical unit 


gerror 


get system error messages 


getarg 


return command line arguments 


getq 


get a character from a logical unit 


getcwd 


get pathname of current working directory 


getenv 


get value of environment variables 


getgid 


get user or group ID of the caller 


getlog 


get user's login name 



Summary of System Interface Routine Library (Part 1 of 2). 
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Function 


Purpose 


getpid 


get process ID 


getuid 


get user or group ID of the caller 


gmtime 


return system time 


iargc 


return command line arguments 


idate 


return date or time in numerical form 


ierrno 


get system error messages 


iraxid 


return random values 


isatty 


find name of a terminal port 


itime 


return date or time in numerical form 


kin 


send a signal to a process 


len 


tell about character objects 


link 


make a link to an existing file 


loc 


return the address of an object 


Itime 


return system time 


perror 


get system error messages 


putc 


write a character to a FORTRAN logical unit 


qsort 


quick sort 


rand* 


return random values 


signal 


change the action for a signal 


sleep 


suspend execution for an interval 


stat 


get file status 


time 


return system time 


ttynam 


find name of a terminal port 


unlink 


remove a directory entry 


wait 


wait for a process to terminate 



( 



Summary of System Interface Routine Library (Part 2 of 2). 

You can display reference information on the functions shown in the figure using 
the man command in the following format: 

man 3f function 



( 
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Intrinsic Subroutine Extensions 



DATE 



This section describes the intrinsic subroutines that are extensions to FORTRAN 
77. The following summarizes applicable rules for the subroutines. 

1. The subroutine names are specially recognized by the compiler. A user- 
written subroutine with the same name as a system subroutines routine must 
be declared in an EXTERNAL statement in the calling subprogram. 

2. Using a user-written subroutine with the same name as a system subroutine 
in one subprogram does not preclude using the actual system subroutine in a 
different subprogram. 

3. To pass the name of a system subroutine as an argument to another subpro- 
gram, the name of the system subroutine must be declared in an INTRINSIC 
statement in the calling subprogram. 

4. When a system subroutine name is passed as an argument to another subpro- 
gram, the call to the system subroutine via the formal parameter name in the 
receiving subprogram must use the primary calling sequence for the subpro- 
gram (when there is more than one possible calling sequence). 

The following table gives an overview of the system subroutines and their func- 
tions; they are described in detail in the sections following the table. 



Subroutine 


Information Returned 


DATE 


Current date as nine-byte string in ASCII representation. 


IDATE 


Current month, day, and year, each represented by a 
separate integer. 


ERRSNS 


Description of the most recent error. 


EXIT 


Terminates program execution. 


FREE 


Deallocates an area of memory. 


TIME 


Current time in hours, minutes, and seconds as an 
eight-byte string in ASCII representation. 


MVBITS 


Moves a bit field to a different storage location. 



The subroutines are described in detail starting on the next page. 

Returns the current date as set by the system; the format is as follows: 

CALL DATE(jbuf) 

where huf is a variable, array, array element, or character substring nine bytes 
long. After the call, buf contains an ASCII variable in the format dd-mmm-yy, 
where dd is the date in digits, mmm is the month in alphabetic characters, and yy 
is the year in digits. 
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IDATE 



ERRSNS 



EXIT 



FREE 



Returns the current date as three integer values representing the month, date, and 
year; the format is as follows: 

CALL IDATE (m, d,y) 

where m, d, and y are either INTEGER*4 or INTEGBR*2 values representing the 
current month, day, and year. For example, the values of m, d, and y on August 
10th, 1989, are as follows: 

m - 8 
d = 10, 
y = 89 



Returns information about the most recent program error; the format is as fol- 
lows: 

CALL ERRSNS (argl, arg2, arg3, argA, arg5) 

The arguments (argl, arg2, etc.) can be either INTEGER*4 or INTEGER*2 vari- 
ables; upon return from ERRSNS, they contain the information shown in the fol- 
lowing table: 



Argument 


Contents 


argl 


UNIX global variable err no, which is then reset 
to zero after the call. 


argl 


Zero 


arg3 


Zero 


arg4 


Logical unit number of the file which was being processed 
when the error occurred. 


argS 


Zero 



Although only argl and arg4 return relevant information, argl, arg3, and arg5 
are always required. 

Causes normal program termination, and optionally returns an exit-status code 

CALL EXIT (status) 

where status is an INTEGER*4 or INTEGER*2 argument containing a status 
code. 



Deallocates an area of memory previously allocated by M ALLOC; the format is 
as follows: 

FREE (p) 

where p is the pointer previously returned by MALLOC, but not already given to 
FREE. The memory is returned to the memory manager, making it unavailable 
to the programmer. 



( 



( 



( 
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TIME 



MVBITS 



Returns the current time in hours, minutes, and seconds; the format is as follows: 

CALL TIME {Clock) 

clock can be a variable, array, array element, or character substring; it must be 
eight bytes in length. After execution, clock contains the time in the format 
hhimmiss, where hh, mm, and ss are numerical values representing the hour, the 
minute, and the second. 

Transfers a bit field from one storage location to another; the format is as fol- 
lows: 

CALL MVBITS (source, sbit, length, destination, dbit) 
The arguments are defined in the following table: 



Argument 1 


Type 


Contents 


source 


integer variable or 
array element 


Source location of bit field to 
be transferred. 


sbit 


integer expression 


First bit position in the field to 
be transferred from source. 


length 


integer expression 


Length of the field transferred from source. 


destination 


integer variable or 
array element 


Destination location of the bit field. 


dbit 


integer expression 


First bit in destinatiortLo which the field 
is transferred. 



The arguments can be declared as INTEGER*2 orlNTEGERM . 

Intrinsic Function Extensions 

The following table gives an overview of the intrinsic functions added as exten- 
sions of FORTRAN 77. 



Function 



SECNDS 

RAN 

MALLOC 



Information Returned 



Elapsed time as a floating point value in seconds. 

The next number from a sequence of pseudo random numbers. 

Allocates an area of memory. 



These functions are described in detail in the following sections. 
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SECNDS 



BAN 



MALLOC 



Returns the number of seconds since midnight, minus the value of the passed ar- 
gument; the format is as follows: 

s = SECNDS (n) 

After execution, s contains the number of seconds past midnight less the value 
specified by n. Both s and n are single-precision, floating point values. 



Generates a random number; the format is as follows: 

v = RAN (s) 

The argument s is an INTEGER*4 variable or array element; s serves as a seed in 
determining the next random number and should initially be set to a large, odd 
integer value. This permits the computation of multiple random numbers series 
by supplying different variable names as the seed argument to RAN. 



Allocates an area of memory and returns the address of the start of that area; the 
format is as follows: 

p - MALLOC {n) 

where n is an integer specifying the amount of memory to be allocated, in bytes. 
If successful, it returns a pointer to the first element of the region, otherwise it 
returns an integer 0. The region of memory is not initialized in any way. 



c 



c 
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Run-Time Error Messages 



When the FORTRAN run-time system detects an error, the following action 
takes place: 

• a message describing the error is written to the standard error 
unit 

(UnitO) 

• If \htf77-dwnp-flag environment variable is set to yes, the pro- 
gram is terminated with a signal 

• a core file, which can be used with dbx (the debugger) to inspect 
the state of the program at termination, is produced. 

If the environment variable f77-dump-flag is set to any value other than yes, the 
program terminates with one of the error codes shown in the following table. 



Diagnostic Message 


Explanation 


100 error in format 

101 illegal unit number 

102 formatted io not allowed 

103 unformatted io not allowed 


The format contained a syntactic error. The 
format is printed as part of the diagnostic 
message. 

No more units are available. All unit num- 
bers have been used. 

Cannot do formatted I/O on a file opened as 
FORM-'UNFORMATTED\ See the de- 
scription of the FORM clause of the OPEN 
statement in Chapter 8 of the FORTRAN 
Language Reference manual. 

Cannot do formatted I/O on a file not 
opened as FORM-UNFORMATTED'. See 
the description of the FORM clause of the 
OPEN statement in Chapter 8 of the FOR- 
TRAN Language Reference manual. 
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Diagnostic Message 



Explanation 



104 direct io not allowed 



105 sequential io not allowed 



106 can't backspace file 



107 



108 can't stat file 



109 unit not connected 



110 off end of record 



111 truncation failed in endfile 



1 12 incomprehensible list 
input 



113 out of free space 



1 14 unit not connected 



115 read unexpected character 



Cannot do direct access I/O on a file not 
opened as SEQUENTIAL='DIRECT\ See 
the description of the SEQUENTIAL clause of 
the OPEN statement in Chapter 8 of the FOR- 
TRAN Language Reference manual. 

Cannot do sequential access I/O on a file 
opened as SEQUENTIAL='DIRECT'. See the 
description of the SEQUENTIAL clause of the 
OPEN statement in Chapter 8 of the FOR- 
TRAN Language Reference manual 

Cannot backspace on files not associated with 
a random access device, for example on a file 
associated with a tape device. 

Not used 

Access to a unit connected to a file was denied 
by the operating system, as indicated by the 
accompanying system error code. See the in- 
tro(2) manual page in the System Program- 
mer's Manual for an explanation of the system 
error code. 

The specified unit number is not connected to 
a file. This message can occur after a CLOSE 
is executed. 

An attempt was made to read or write past 
end~of-record. 

An attempt to truncate a file using an 
ENDFILE statement failed. 

Input selected list-directed operations does not 
match the type of the variables in the input list. 
The expected type or invalid character encoun- 
tered is specified in the diagnostic message. 



The operating system denied the request for 
space required by the Fortran run-time sys- 
tem. 

An attempt was made to access a unit that was 
not connected; the open failed. 

Unexpected character encountered on a read 
operation. The character did not match the 
format specified for the READ. 
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Diagnostic Message 


Explanation 


116 blank logical input field 

117-125 

126 'new' file exists 

127 can't find 'old' file 

128 unknown system error 

129 requires seek ability 

130 illegal argument 
131 


Invalid characters encountered in a read of 
logical value. Logical inputs must be speci- 
fied as one of t,f .true., false, (upper- or 
lowercase. 
Not used. 

The file specified in an OPEN statement with 
STATUS=NEW already exists. The file can- 
not be overwritten when STATUS=NEW is 
specified. 

The file specified in an OPEN statement with 
STATUS=NEW does not exist. The file can- 
not be created when STATUS=OLD is speci- 
fied. 

A system error specified by the system error 
number in the diagnostic message occurred. 
See the intro(2) manual page in the Program- 
mer's Reference Manual for an explanation of 
the error code. 

The unit is not connected to a random access 
device, as is required by the I/O statement 
causing the error condition. 

Invalid 'form' specified. 
Not used. 
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Index 



Numbers 

66 command line option, 1-6 



-alignl6 driver option, 1-7, 2-2 

-align32 driver option, 1-7 

-align32 driver option, 2-2 

-align8 driver option, 1-7 

-align8 driver option, 2-2 

ar (archiver), 1-15 

archiver, 1-15 

argument 
exchanging with C programs, 3-3—3-4 
exchanging with Pascal programs, 3-7—3-9 

array 
handling with C programs, 3-4 
handling with Pascal programs, 3-9—3-10 

-automatic driver option, 1-8 

B 

bestGnum option, 1-14 

byte, alignment, size, and value ranges, 2-1—2-4 

byte ordering options, 1-14 



-C driver option, 1-8 

C language programs, interfacing with, 3-1 

C program interface 
examples 

argument passing, 3-4 

comon block access, 3-6 

passing arrays, 3-5 
invoking a FORTRAN program, 3-2 

C programs, compiling with FORTRAN programs, 1-3 

cache conflicts, reducing, 1-14 

character, alignment, size, and value ranges, 2-1—2-4 

-check_bounds driver option, 1-8 

-col20 driver option, 1-8 

-col72 driver option, 1-8 



command line options, 1-6 — 1-9 

common blocks 
accessing from C programs, 3-5 — 3-6 
accessing from Pascal programs, 3-10—3-12 

complex, alignment, size, and value ranges, 2-1 — 2-4 

cord option, 1-14 

core dump, after error, 1-17 

-cpp driver option, 1-9 



DATE intrinsic subroutine, 4-3 

-d Jines driver option, 1-9 

dbx, 1-12—1-13 
See also debugging 

debugging, options, 1-12— 1-13 

debugging (dbx), example, 1-12 

double precision, alignment, size, and value ranges, 

2-1—2-4 

driver options, 1-6 — 1-9 
drivers, purpose, 1-1 



-EB option, 1-14 

-EL option, 1-14 

ERRSNS intrinsic subroutine, 4-4 

EXIT intrinsic subroutine, A-A 

error handling, run-time, 1-17 

examples 
compiling object programs, 1-3 
debugging (dbx), 1-12 
linking object programs, 1-4 
profiling, 1-13 

-extend_source driver option, 1-9 



-F driver option, 1-9 

-F option, 1-9 

.f suffix, 1-1 

f77 driver command, syntax, 1-1 

feedback option, 1-14 
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file formats, 1-16 

file properties, listing with file utility, 1-15 

files 
positions, 1-16, 1-17 
unknown status on OPEN, 1-17 

functions, run-time library, 4-1 — 4-2 

G 

G option, 1-14 

I 

ID ATE intrinsic subroutine, 4-4 

-i2 driver option, 1-10 

integer, alignment, size, and value ranges, 2-1—2-4 

intrinsic subroutines, 4-3 — 4-5 

invoking a program, 1-16 



jnopt option, 1-14 



library functions, 4-1 — 4-2 

library, archive, copying and replacing programs, 1-15 

link editing, using driver command, 1-2 

link libraries, required, 1-4—1-5 

linking objects, 1-4 — 1-5 

logical, alignment, size, and value ranges, 2-1—2-4 

M 

MALLOC, intrinsic function, 4-6 
MVBITS intrinsic subroutine, 4-5 
-m driver option, 1-10 



N 

-N driver option, 1-10 
new-line indicator, in output records, 1-16 
nm, printing symbol table information, 1-15 
-noextend_source driver option, 1-10 
-noi4 driver option, 1-10 

O 

.o suffix, 1-2 

odump, uisng to obtain object layout, 1-15 

optimizer, 1-13—1-14 

options, driver, FORTRAN-specific, 1-6—1-9 

options, driver, 1-6 — 1-9 



Pascal program interface 
examples 

argument passing, 3-8 

array handling, 3-9 — 3-10 

common block access, 3-1 1 
invoking a FORTRAN program, 3-6 
rules and conventions, 3-6—3-12 

Pascal programs, compiling with FORTRAN pro- 
grams, 1-3 

PL/1 programs, compiling with FORTRAN programs, 
1-3 

performance, improving, 1-14 

pixie program, 1-13, 1-14 

prof program, 1-13, 1-14 

profiling, 1-13 

R 

RAN, intrinsic function, 4-6 

range checking, 1-8 

real, alignment, size, and value ranges, 2-1—2-4 

record formats, 1—16 

record separator, 1-16 

run-time 
error handling, 1-17 
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library functions, 4-1 — 4-2 



Index 



TIME intrinsic subroutine, 4-5 



size utility, 1-15 

source file, naming convention, 1-2 
subroutines, intrinsic, 4-3 — 4-5 
subscript range checking, 1-8 
symbol table, printing, 1-15 



U 



underscore, use when calling C program, 3-1 
unformatted record formats, 1-16 



VMS-FORTRAN, default mode, 1-10 
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About Part II of This Book 



Part II of this book describes MIPS-FORTRAN, which contains full American 
National Standard (ANSI) Programming Language FORTRAN (X3.9-1978) plus 
MIPS extensions that provide full VMS FORTRAN compatibility to the extent 
possible without the VMS operating system or VAX data representation. MIPS- 
FORTRAN also contains extensions that provide partial compatibility with pro- 
grams written in SVS FORTRAN and FORTRAN 66. 

MIPS-FORTRAN is a superset of VMS FORTRAN; the MIPS RISCompiler™ 
system can covert source programs written in VMS FORTRAN into machine 
programs executable under RISC/os™ (UMIPS). 

Standard FORTRAN 7? rales and syntax appear abnormal text throtighotitthe 
manual, whereas text that describes extensions is underlined, as m this para- 
graph* Also, extensions are shown within figures in shaded, areas, for example: 



Type Keywords 



INTEGER COMPLEX 



mmm 



<etc> 



shows that INTEGER* 1 and BYTE are extensions while INTEGER and COM- 
PLEX are standard Fortran 77 keywords. 



Intended Audience 



This manual is intended as a reference manual rather than a tutorial, and assumes 
familiarity with some algebraic language or prior exposure to FORTRAN. 

MIPS-FORTRAN is referred to as FORTRAN in this manual, except in such 
instances where distinctions between MIPS-FORTRAN and ANSI FORTRAN 
(FORTRAN 77 or FORTRAN 66) are being specifically discussed. 



Corequisite Publications 



This manual describes the FORTRAN language specifications. Refer to the 
MIPS-FORTRAN Programmer' s Guide (Part I of this book) for information on 
the following topics: 

• How to compile and link edit a FORTRAN program. 

• Alignments, sizes, and variable ranges for the various data types. 

• The coding interface between FORTRAN programs and pro- 
grams written in C and Pascal. 
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• File formats, run-time error handling, and other information re- | 
lated to the operating system (RISC/os). * 

• Operating systems functions and subroutines that are callable by 
FORTRAN programs. 

Refer to the Languages Programmer's Guide (3200DOC) for infonnation on the 
following topics: 

® An overview of the compiler system. 

• Information on improving the program performance, showing 
how to use the profiling and optimization facilities of the MIPS 
RISCompiler system. 

• A detailed description of the debugger (DBX). 

® The dump utilities, archiver, and other tools for maintaining 
FORTRAN programs. 

For information on the interface to programs written in assembly language, refer 
to the Assembly Language Programmer's Guide. 



Organization of Information 

The following topics are covered in this manual: 

• FORTRAN language elements 

• Data types, constants, variables and arrays 

• Expressions 

• FORTRAN statements, grouped according to the general class of 
functions they perform: 

o Specification statements 

o Assignment statements 

o Control statements 

o Input/output statements 

o Format specifications 

Appendix A contains tables showing the intrinsic functions supported. 
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Syntax Conventions 



The following conventions and symbols are used in the text to describe the form 
of FORTRAN statements: 



UPPER CASE 


Upper case letters and words are to be written as 
shown, except where noted otherwise. 


lower case 


Lower case abbreviations and words represent 
characters or numerical values that you define. 
You replace the abbreviation with the defined 
value. 


[] 


Brackets are used to indicate optional items. 


{} 


Braces surrounding two or more items indicate 
that at least one of the items must be specified. 


1 


The OR symbol separates two or more optional 
items. 


... 


An ellipsis indicates that the preceding otpional 
items may appear more than once in succession. 





A pair of parentheses is used to enclose entities and 
must be written as shown. 


(blank) 


Blanks have no significance unless otherwise 
noted. 



Below are two examples illustrating the syntax conventions. 
DIMENSION a(d) [,a(d)] ... 

indicates that the FORTRAN keyword DIMENSION must be written as 
shown, that the entity a(d) is required, and that one or more of a(d) may be 
optionally specified. Note that the pair of parentheses ( ) enclosing d are re- 
quired. 

{STATIC | AUTOMATIC} v [,v] ... 

indicates that either the STATIC or AUTOMATIC keyword must be written 
as shown, that the entity v is required, and that one or more of v items may be 
optionally specified. 
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FORTRAN Elements 
and Concepts 



Overview 

This chapter provides definitions for the various elements that comprise a FOR- 
TRAN program. The FORTRAN language is written using a specific set of char- 
acters that form the words, numbers, names, and expressions that make up FOR- 
TRAN statements. These statements form a FORTRAN program. The FOR- 
TRAN character set, rules for writing FORTRAN statements, the main structural 
elements of a program, and the proper order of statements in a program are dis- 
cussed in this chapter. 

FORTRAN Character Set 

The FORTRAN character set consists of 26 upper-case and 26 lower-case letters 
(alphabetic characters), characters through 9 (digits), and special characters. 
This manual refers to letters (uppercase and lowercase) together with the under- 
score ( _ ) as extended alphabetic characters. The extended alphabetic characters 
together with the digits are also referred to as alphanumeric characters. 

The complete character set is as follows: 

Letters: ABCDEFGHIJKLMNOPQRSTUVWXYZ 

abcdefghijklmnopqrstuvwxyz 

Digits: 0123456789 
Special Characters: 





Blank 


= 


Equals 


+ 


Plus 


— 


Minus 


* 


Asterisk 


/ 


Slash 


( 


Left Parenthesis 


) 


Right Parenthesis 


> 


Comma 


. 


Decimal Point 


$ 


Currency Symbol 


> 


Apostrophe 


'. 


Colon 


! 


Exclamation Point 




Underscore 


>» 


Quotation Mark 



Part II: FORTRAN Language Reference 1 -1 



Chapter 1 



and the double quote C) are extensions to FORTRAN 77* 

Digits are interpreted in base 10 when a numeric value is represented. 

A special character may serve as an operator, a part of a character constant, a part 
of a numeric constant, or some other function. 

Blank characters may be used freely to improve the appearance and readability of 
FORTRAN statements. They have no significance in FORTRAN statements, 
except in the following cases: 

• When used in character constants 

• When used in H- and character-editing in format specifications 

• When used in Hollerith constants 

• To signify an initial line when used in column 6 of source line 

• When counting the total number of characters allowed in any one 
statement 

These special considerations are discussed in more detail in the appropriate sec- 
tions. 



c 



llllpliiillllllll 












illlilillllllll 


iVfe&ttiftg 






HHH 


New line 






flBH 


^^^S^Xs^^SiMB^^^^^^Sm 






V 


, Backspace . 






\r 


Formfeed ; 






IBIII 


Null 






WKKB 


Apostrophe (doesn't terminate a string) : 






v , 


Quotation mark (doesn't tetmmate a string . 1 






'•"•>.:- J • 


m^K^^Km^mSm^^B^^^^S^m. 






\x 


& represents any other character : 





The compiler aligns character string constants and unequivalenced scalar local 
character variables on an INTEGER word boundary. It places a null character 
after each character string constant appearing outside a DATA statement for 
compatibility with routines written in C. 



Collating Sequence 



The collating sequence for letters and digits defines the relationship between 
them and is used to compare character strings. 
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The collating sequence is determined as follows: 

• A is less than Z, and a is less than z. The order of listing the al- 
phabetic characters above specifies the collating sequence for 
alphabetic characters. The relationship between the same letter 
in lowercase and uppercase is unspecified. 

• is less than 9. The order in which digits are listed above de- 
fines the collating sequence for digits. 

• Alphabetic characters and digits are not intermixed in the collat- 
ing sequence. 

• The blank character is less than the letter A (upper and lower- 
case), and less than the digit 0. 

• The special characters given as part of the character set are not 
listed in any given order. There is no specification as to where 
special characters occur in the collating sequence. 



Symbolic Names 



A symbolic name is a sequence of characters used to identify the following user- 
defined local and global entities: 

Local variable 

constant 
array 

statement function 
intrinsic function 
dummy procedure 

Global common block 
external function 
subroutine 
main program 
block data subprogram 

A symbolic name can contain any alphanumeric characters; digits and _ (under- 
score) are allowed in addition to upper- and lower-case alphabetic characters. 
However, the first character must be a letter. 

*- FORTRAN symbolic names may contain Miy number of characters, btitojtdy 
the first 32 of these are significant in (MsMgmMugmczymholicnmxofxom 

fine names, function names* common block names) are limited to 32 signifi- 
cant characters. 

fers in symbolic names is an enhancement to FORTRAN 77< In FORTRAN 
77, no special characters are allowed. . 
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Examples of valid symbolic names are: 

CASH C3P0 R2D2 LONG__NAME _THIS_ 

Examples of invalid symbolic names in are: 

X*4 (Contains a special character) 
3CASH (First character is a digit) 

Scope of Symbolic Names 

The rules for determining the scope of symbolic names are as follows: 

1 . A symbolic name that identifies a global entity, such as a common block, 
external function, subroutine, main program, or block data subprogram has 
the scope of an executable program. It must not be used to identify another 
global entity in the same executable program. 

2. A symbolic name that identifies a local entity, such as an array, variable, con- 
stant, statement function, intrinsic function, or dummy procedure, has the 
scope of a single program unit. It must not be used to identify any other local 
entity in the same program unit. 

3. A symbolic name assigned to a global entity in a program unit must not be 
used for a local entity in the same unit. However, it may be used for a com- 
mon block name, or an external function name, that appears in a FUNCTION 
or ENTRY statement. 



Source Program Lines 



Comments 



A source program line can be thought of as a sequence of character positions, 
called columns, numbered consecutively starting from Column 1 on the left. 
Lines can be classified as comment lines, initial lines, continuation lines, and 
debugging lines (an extension to FORTRAN 77. 



A comment line is used solely for documentation purposes and does not affect 
the execution of a program. A comment line may appear anywhere and has one 
of the following characteristics: 

• An upper-case C (C) or an asterisk (*) in Column 1, and any 
sequence of characters from Column 2 through to the end of the 
line 

• A blank line 
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Initial Lines 



Fixed Format 



1 are treaM sacraments. 



Initial lines contain the FORTRAN language statements that make up the source 
program; these statements are described in detail under Program Organization 
later in this chapter. Each FORTRAN line is divided into the following fields: 

® Statement label field 

• Continuation indicator field 
® Statement field 

• Comment field 

The fields in a FORTRAN line can be entered either on a character-per-column 
basis, or by using the TAB character to delineate the fields, as described in the 
following sections. 



Consider a FORTRAN line to be divided into columns, with 1 character per col- 
umn as indicated below: 



Field 



Column 



Statement Label 
Continuation Indicator 



1 through 5 
6 



Statement 



7 to the end of the line or to the 



start of the comment field 



Comment (optional) 



73 or! through end of line 



• Ime;^ 

^ ^described in Chapter 11, # . . 
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umns, the TAB character can |?e^ed^^dtem^tivefi^ld delimiter, as follows: 
Lat)d ? ^orr the line wi&^ TAB, 

line will fee interpreted a$ m initial line> 

3, In a continuation line beginning with a TAB followed by a digit, any characters 
following the digitto the end of the 1^ 

4, TAB-formatte4 lines don't have preassigned comment fields All characters to 
the end of the line are considered part of the statement However, an exclama- 

end of the line. 

The n4es for TAB formatting can be summarized; 
statement lc^ei>TAB<smtemem> (initial line) 

TAB<sta$ement> (initial line) 

mined position when a TAB is entered* this action i$ not related to how the TAB 
statement field as blanks ■ • 



Continuation Lines 
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A continuation line is a continuation of a FORTRAN statement and is identified 
as follows: 

• Columns 1 through 5 must be blank. 

• Column 6 contains any FORTRAN character, other than a blank 
or the digit 0. Column 6 is frequently used to number the con- 
tinuation lines. 

As with initial lines, Columns 7 through the end of the line contain the FOR- 
TRAN statement or a continuation of the statement. 

Up to 19 continuation lines are allowed. 
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Blank Lines 



A line that is entirely blank is a comment line. It can be used to improve the 
readability of a program. 



Program Organization 



Program units are made up of FORTRAN statements. A FORTRAN program 
consists of one or more program units. 



FORTRAN Statements 



Program Units 



Main Program 



FORTRAN statements are used to form program units. Each statement is written 
from Column 7 onwards of an initial line and Column 7 onwards of as many as 
19 continuation lines. A statement must not contain more than 1320 characters, 
including blank characters. 

A statement must not begin on a line that contains any portion of a previous 
statement, except as part of a logical IF statement. 

The END statement signals the physical end of a FORTRAN program unit, and 
begins in Column 7 or any later column of an initial line. No other statement 
may have an initial line that contains END as its first three nonblank characters. 

All FORTRAN statements, except for assignment and statement function state- 
ments, begin with a keyword. A keyword is a sequence of characters that identi- 
fies the type of FORTRAN statement. 

A statement label provides a means of referring to individual FORTRAN state- 
ments. A statement label consists of one to five digits — one of which must be 
nonzero — placed anywhere in Columns 1 through 5 of an initial line. Blanks and 
leading zeros are not significant in distinguishing between statement labels. 



The following statement labels are equivalent: 



" 123 " 



'123 



"1 2 3' 



"00123' 



Two or more statements in a program unit must not have the same statement la- 
bel. 

It is not necessary to label a FORTRAN statement. However, only labeled state- 
ments may be referenced by other FORTRAN statements. PROGRAM, SUB- 
ROUTINE, FUNCTION, BLOCK DATA, and INCLUDE statements must not 
be labeled. 



A program unit consists of a sequence of statements and optional comment lines. 
It may be a main program or a subprogram. The program unit defines the scope 
for symbolic names and statement labels. 

A program unit always has an END statement as its last statement. 



The main program is the program unit that initially receives control upon execu- 
tion. 
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Subprograms 



A main program may have a PROGRAM statement as its first statement. It may ^ 

contain any FORTRAN statement, except a FUNCTION, SUBROUTINE, I 

BLOCK DATA, ENTRY or RETURN statement, A SAVE statement in a main 
program does not affect the status of variables or arrays. A STOP or END state- 
ment in a main program terminates execution of the program. 

The main program may be a non-FORTRAN main program. See Chapter 3 of 
the FORTRAN Programmer 9 $ Guide for information on writing FORTRAN pro- 
grams that interact with programs written in other languages. 

A main program may not be referenced from a subprogram or from itself. 



A subprogram is a program unit that receives control when referenced or called 
by a statement in a main program or another subprogram. 

A subprogram may be: 

• A function subprogram identified by a FUNCTION statement 

• A subroutine subprogram identified by a SUBROUTINE state- 
ment 

• A block data subprogram identified by a BLOCK DATA state- 
ment 



• A non-FORTRAN subprogram 

Subroutines, external functions, statement functions, and intrinsic functions are 
collectively called procedures. A procedure is a program segment that performs 
an operational function. 

An external procedure is a function or subroutine subprogram that is processed 
independently of the calling or referencing program unit. It may be written as a 
non-FORTRAN subprogram as described in Chapter 3 of the FORTRAN Pro- 
grammer's Guide. 



Intrinsic Functions 



Intrinsic functions are supplied by the processor and are generated as in-line 
functions or library functions. See Appendix A for a description of the func- 
tions, the results given by each, and their operational conventions and restric- 
tions. 

Program units are made up of FORTRAN statements. A FORTRAN program 
consists of one or more program units. 

Executable Programs 

An executable program consists of exactly one main program and zero or more 
of each of the following entities: 

• Function subprogram 

• Subroutine subprogram 
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• Block data subprogram 

• Non-FORTRAN external procedure 

The main program must not contain an ENTRY or a RETURN statement. Upon 
encountering a RETURN statement, the compiler issues a warning message; at 
execution time, a RETURN statement stops the program. Execution of a pro- 
gram normally ends when a STOP statement is executed in any program unit or 
when an END statement is executed in the main program. 

Executable and Nonexecutable Statements 

FORTRAN statements are classified as executable or nonexecutable statements. 
Executable Statements 

An executable statement specifies an identifiable action and is part of the execu- 
tion sequence in an executable program. Executable statements are organized 
into three classes. 

Assignment statements: 

• Arithmetic, logical, statement label (ASSIGN), and character 
assignment 

Control statements: 

• Unconditional, assigned, and computed GO TO 

• Arithmetic IF and logical IF 

• Block IF, ELSE IF, ELSE, and END IF 

• CONTINUE 

• STOP and PAUSE 

• DO 

• CALL and RETURN 

• END 

Input/Output statements: 

• READ, WRITE, and PRINT 

• REWIND, BACKSPACE, ENDFILE, OPEN, CLOSE, and 

Nonexecutable Statements 

A nonexecutable statement is not part of the execution sequence. A statement 
label is permitted on most types of nonexecutable statements but that label must 
not be used for an executable statement in the same program unit. 
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A nonexecutable statement may perform one of the following functions: ^~ 

• Specify the characteristics, storage arrangement, and initial val- V 
ues of data 

• Define statement functions 

• Specify entry points within subprograms 

• Contain editing or formatting information 

• Classify program units 

• Specify inclusion of additional statements from another source 

The following data type statements are classified as nonexecutable: 

CHARACTER type 

COMPLEX 

DIMENSION 

DOUBLE PRECISION 

INTEGER 

LOGICAL 

REAL 

BYTE 

Other program statements that are also classified as nonexecutable include the 
following: | 

BLOCK DATA INCLUDE 

COMMON INTRINSIC 

DATA PARAMETER 

ENTRY PROGRAM 

EQUIVALENCE SAVE 

EXTERNAL SUBROUTINE 

FORMAT Statement function 

FUNCTION VIRTUAL 
IMPLICIT 



Order of Statements 
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The following rules determine the order of statements in a main program or sub- 
program: 

1 . In the main program, a PROGRAM statement is optional; if used, it must be 
the first statement. In other program units, a FUNCTION, SUBROUTINE, 
or BLOCK DATA statement must be the first statement. 

2. Comment lines can be interspersed with any statement and can precede a 
PROGRAM, FUNCTION, SUBROUTINE, or BLOCK DATA statement. 

3. FORMAT and ENTRY statements may be placed anywhere within a pro- 
gram unit after a PROGRAM, FUNCTION, SUBROUTINE, or BLOCK 
DATA statement. 
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4. ENTRY statements may appear anywhere in a program unit except: 

• between a block IF statement and its corresponding END IF statement 

• within the range of a DO loop; that is, between a DO statement and the 
terminal statement of the DO loop 

5. The FORTRAN 77 standard requires that specification statements, including 
the IMPLICIT statement, be placed before all DATA statements, statement 
function statements, and executable statements. 

However* this implementation of FORTRAN permits the interspersing of . 
DATA statements among specification statements* 

Specification statements specifying the type of the symbolic name of a con- 
stant must appear before the PARAMETER statement that identifies the 
symbolic name with that constant 

6. The FORTRAN 77 standard allows PARAMETER statements to intersperse 
with IMPLICIT statements or any other specification statements, but a PA- 
RAMETER statement must precede a DATA statement. 

Hie FORTRAN 77 standard is extended to permit the interspersing of DATA 
statements among PARAMETER statements. 

PARAMETER statements that associate a symbolic name with a constant 
must precede all other statements containing that symbolic name. 

7. All statement function statements must precede the first executable state- 
ment. 

8. IMPLICIT statements must precede all other specification statements except 
PARAMETER statements. 

9. The last statement of a program unit must be an END statement. 

NOTE: These rules apply to the program statements after merging of lines 
included by all INCLUDE statements. INCLUDE statements may appear 
anywhere in a program unit. 

Execution Sequence 

The execution sequence in a FORTRAN program is the order in which state- 
ments are executed. The normal sequence of execution is the order in which 
statements appear in a program unit. This is carried out as follows: 

• Execution begins with the first executable statement in a main 
program and continues from there. 

• When an external procedure is referenced in a main program or 
in an external procedure, execution of the calling or referencing 
statement is suspended. Execution continues with the first exe- 
cutable statement in the called procedure immediately following 
the corresponding FUNCTION, SUBROUTINE, or ENTRY 
statement. 
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® Execution is returned to the calling statement via an explicit or 
implicit return statement. 

• Normal execution proceeds from where it was suspended or 
from an alternate point in the calling program. 

• The executable program is terminated normally when the proces- 
sor executes a STOP statement in any program unit or an END 
statement in the main program. Execution is also terminated 
automatically when an operational condition prevents further 
processing of the program. 

Normal execution sequence may be altered by a FORTRAN statement that 
causes the normal sequence to be discontinued or causes execution to resume at a 
different position in the program unit. Statements that may cause a transfer of 
control are: 

GOTO 

Arithmetic IF 

RETURN 

STOP 

An input/output statement containing an error specifier or end- 
of-file specifier 

CALL with an alternate return specifier 

A logical IF containing any of the above forms 

Block IF and ELSE IF 

The last statement, if any, of an IF block or ELSE IF block 

DO 

The terminal statement of a DO loop 

END 



c 



( 



( 
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and Arrays 



Overview 

In general, there are three kinds of entities that have a data type: constants, data 
names, and function names. The types of data allowed in FORTRAN are: 

• INTEGER - positive and negative integral numbers, and zero. 

• REAL - positive and negative numbers with a fractional part, 
and zero. 

• DOUBLE PRECISION - same as REAL but using twice the 
storage space and possibly greater precision. 

• COMPLEX - ordered pair of REAL data: real and imaginary 
parts, as in m + nf . 

• DOUBLE COMPLEX - ordered pair of double precision data. 

• LOGICAL - boolean data representing true or false. 

• CHARACTER - character strings. 

• HOLLERITH - an historical data type for character definition. 

Together, INTEGER, REAL, DOUBLE PRECISION, COMPLEX, and DOU- 
BLE COMPLEX constitute the class of arithmetic data types. 

The type of data is established in one of two ways: implicitly, depending on the 
first letter of its symbolic name (described in this chapter), or explicitly through a 
type statement (described in Chapter 4). 

A data value may be a variable or a constant, that is, its value either can or cannot 
change during the execution of a program. An array is a sequence of data items 
occupying a set of consecutive bytes. 
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The optional length spec^ g- 

piler uses the defaults listed In Chapter 1 of the FORTRAN Programmer' s 

In general, wherever the usage of a given data typhis allowed, it can have any , 
internal length. One exception to this is the use of integer variables for assigned 
GOTO statements. In this case the Integer variable mmt be 4 bytes in length. 

Data of a given type and different internal lengths may be intennked in expres- 
sions and the resultant value wffi 
resentations present in the expression. 

NOTE; The lengths of arguments in actual and formal parameter lists and 
COMMON blocks must agree in order to get predictable results. 



Implicit Typing of Data 



Constants 
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If not explicitly specified by a type statement or a FUNCTION statement, the 
data type of a data item or a data name or function name is determined implicitly 
by the first character of its symbolic name. By default, a symbolic names begin- 
ning with I, J, K, L, M, or N (upper case or lower case) implies an INTEGER 
data type; names beginning with all other letters imply a REAL data type. The 
default implicit data type corresponding to each letter of the alphabet may be 
changed or confirmed through an IMPLICIT statement. 

The data type of external functions and statement functions are implicitly deter- 
mined in the same manner as above. The type of an external function may also 
be explicitly declared in a FUNCTION statement. 



A constant is a data value that cannot change during the execution of a program 
and can be of the following types: 

• arithmetic constants 

• logical constants 

• character constants 

As an extension, bit constants are also acceptable. 

The form in which a constant is written specifies both its value and its data type. 
A symbolic name can be assigned for a constant using the PARAMETER state- 
ment. Blank characters occurring within a constant are ignored by the processor 
unless the blanks are part of a character constant 

The compiler supports the following types of arithmetic constants: integer, real, 
double precision, complex, and double complex. An arithmetic constant may be 
signed or unsigned. A signed constant has a leading plus or minus sign to denote 
a positive or negative number, respectively. A constant that may be either signed 
or unsigned is an optionally signed constant Only arithmetic constants may be 
optionally signed. 
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Bit constants 4o not h&ve m implicit dm type a^odated with them; their type Is 

detennined by the context in which they appear. 

The sections that follow describe the various types of constants in detail. 

NOTE: The value zero is considered neither positive or negative: a signed zero 
has the same value as an unsigned zero. 

Integer Constants 

An integer constant is a whole number with no decimal points; it can have a posi- 
tive, negative, or zero value. 

An integer constant has the following form: 

sww 

where: 

s is the sign of the number: - for negative, + (optional) for 
positive. 

ww is a whole number. 

It is written with a sign (optional for +) followed by a string of decimal digits 
interpreted as a decimal integer. When used in FORTRAN, an integer constant 
must comply with the following rules: 

• It must be a whole number, that is, without a fractional part. 

• If negative, the special character minus (-) must be the leading 
character. The plus sign (+) in front of positive integers is op- 
tional. 

• It must not contain embedded commas. 

Examples of valid integer constants are: 

+0 +176 -1352 06310 35 

Examples of invalid integer constants are: 

2.03 Decimal point not allowed. This is a real constant (described in a 
following section of this chapter). 

7,909 Embedded commas not allowed. 
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Note thai in mixed mode expressions the compiler wnvert^th^e constants from I 

type integer to the dominant type of the expres&ion to whids they appear. 



Octal Integer Constants 



R^al Constants 
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The foitnat of an octal octant is as follows: 

A real constant is a number containing a decimal point or exponent, or both; it 
can have a positive, negative, or zero value. 

A real constant may have the following forms: 
swwff Basic real constant 

sww.ffEsee Basic real constant followed by a real exponent 
swwEsee Integer constant followed by a real exponent 

where: 

s is the sign of the number: - for negative, + (optional) for positive. 

ww is a string of digits denoting the whole number part, if any. 

is a decimal point. 

ff is a string of digits denoting the fractional part, if any. 

Bsee denotes a real exponent, where see is an optionally signed integer. 

A basic real constant is written as an optional sign followed by a string of deci- 
mal digits containing an optional decimal point. There must be at least one digit. 

A real exponent denotes a power often. 

The value of a real constant is either the basic real constant or, for the forms 
sww.ffEsee and swwEsee, the product of the basic real constant or integer con- 
stant and the power of ten indicated by the exponent following the letter E. 

All three forms may contain more digits than the precision used by the processor 
to approximate the value of the real constant. See Chapter 2 of the FORTRAN 
Programmer's Guide for information on the magnitude and precision of a real 
number, 
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The following examples illustrate real constants written in common and scientific 
notation with their corresponding E format: 



Common Notation 


Scientific Notation 


Real Exponent Form 


5.0 


0.5*10 


.5E1 or 0.5E1 


364.5 


3.465*10 2 


.3645E3 


49,300 


4.93*10 4 


.493E5 


-27,100 


-2.71*10 4 


-.271E5 


-.0018 


-1.8*10-3 


-.18E-2 



The following real constants are equivalent: 

5E4 5.E4 .5E5 5 . OE+4 



+5E04 



50000, 



Invalid Real Constant 


Reason Invalid 


-18.3E 

6.01E2.5 
3.5E4E2 
19,850 


No exponent following the E 

Exponent part alone 

Exponent part must be an integer 

Only one exponent part allowed per constant 

Embedded commas not allowed 



Double Precision Constants 



A double precision constant is similar to a real constant, except it can retain more 
digits of the precision than a real constant. (The size and value ranges of double 
precision constants are given in Chapter 2 of the FORTRAN Programmer' s 
Guide.) 

A double precision entity may assume a positive, negative, or zero value and may 
be written in one of the following forms: 

swwDsee An integer constant followed by a double precision exponent 

sww.ffDsee A basic real constant followed by a double precision exponent 

where: 

s is an optional sign. 

ww is a string of digits denoting the whole number part, if any. 

ff is a string of digits denoting the fractional part, if any. 

Dsee denotes a double precision exponent, where see is an optionally 

signed exponent. 

The value of a double precision constant is the product of the basic real constant 
part or integer constant part and the power often indicated by the integer follow- 
ing the letter D in the exponent part. Both forms can contain more digits than 
used by the processor to approximate the value of the real constant. See Chapter 
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2 of the FORTRAN Programmer's Guide for information on the magnitude and 
precision of a double precision constant. 

Valid forms of double-precision constants are: 

1.23456D3 
8.9743DQ 
-4.D-10 
16.8D-6 

The following forms of the numeric value 500 are equivalent: 

5D2 +5D02 5.D2 5.D+02 5D0002 

The following table shows some invalid double-precision constants and the rea- 
sons they are invalid. 



c 



Invalid Constant 


Reason Invalid 


2.395D 

-9.8736 

l,010 f 203D0 


No integer portion after the letter D. 
Missing D exponent designator. 
Embedded commas not allowed. 



Complex Constants 



A complex constant is a processor approximation to the value of a complex num- 
ber. It is represented as an ordered pair of real data values. The first value repre- 
sents the real part of the complex number and the second represents the imagi- 
nary part. Each part has the same precision and range of allowed values as for 
real data. 

A complex constant has the form: 

(m,n) 

where m and n each have the form of a real constant, representing the complex 
value m + nU where i is the square root of-1. m denotes the real part; n denotes 
the imaginary part. Both m and n may be positive, negative, or zero. 

Examples of valid forms of complex data are: 



c 



Valid Complex Constant 


Equivalent Mathematical Expression 


(3.5,-5) 
(0,-1) 
(0.0,12) 
(2E3,0) 


3.5-5 i 

-i 

0+12 i or 12 i 

2000+0 i or 2000 
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The following table shows some invalid constants and the reasons they are inva- 
lid. 



Invalid Constant 


Reason Invalid 


(1, ) 
(1,2.2,3) 
(10,52. D5) 

(1.15,4E) 


No imaginary part 

More than two parts 

Double precision constants are not allowed for either part 

Imaginary part has invalid form 



Logical Constants 



A logical constant represents only the values true or false. 

A logical constant is specified by one of the following forms and has the indi- 
cated value: 



Form 


Value 


.TRUE. 


true 


.FALSE. 


false 



Character Constants 



A character constant is a string of one or more characters capable of being repre- 
sented by the processor. Each character in the string is numbered consecutively 
from left to right beginning with 1. 

NOTE: The quotation character C) is an extension to FORTRAN 77.. j 

If the delimiter is ", then a quotation mark within the character string is repre- 
sented by two consecutive quotation marks with no intervening blanks. 

If the delimiter is \ then an apostrophe within the character string is represented 
by two consecutive apostrophes with no intervening blanks. 

Blanks within the string of characters are significant. 

The length of a character constant is the number of characters, including blanks, 
between the delimiters. The delimiters are not counted, and each pair of apostro- 
phes or quotation marks between the delimiters counts as a single character. 

A character constant is normally associated with the CHARACTER data type. 
The FORTRAN 77 standard is extended {except as noted below) to allow charac- 
ter constants to appear in the same context as a numeric constant A character 
constant in the context of a numeric constant is treated identically as a Hollerith 

NOTE: Character constants cannot be used as actual arguments to numeric 
typed dummy arguments. 
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The following table gives examples of valid character constants are and shows 
how they are stored. 



Constant 


How Stored 


'DON' 'T' 
"I'M HERE!" 
'STRING' 
'LMN""OP' 


DON'T 
I'M HERE! 
STRING 
LMN""OP 



The following table shows some invalid character constants and the reasons they 
are invalid. 



Invalid Constant 


Reason Invalid 


'ISN.T 


Terminating delimiter missing 


.Yes' 


Mismatched delimiters 


CENTS 


Not enclosed in delimiters 


f r 


Zero length not allowed 


// it 


Zero length not allowed 






||:||||il|i:||p|^n||||| 


Reason Invalid - ^^^^ffi 


2H Y2 
•-4H8E&T 
OH 


Negative length not allowed ^^^^P 
Zero length tiot allowed 



( 



( 
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flutes 




sensation of ®m character, . -«— 



lllllt^^ 
within tie constantly which the constant isusedL. 



liiiiillllllll 



within fhemnteitmwlildifbeyafettsed. 

the datatype of the other opened, For example: 

I1^TE(3ER*2 HILO 

constant is assumed to he the recpired type and length. 
asat|ummts;!iodMatypek^isiimed. 

fee ste of arithmetic and logical datatypes.) 
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Format* 


Meaning 


liiaiiiiii^i 

characters 


||||||||||ii 


b* string* or 'string* To 


Binary 


llllllllillll 


ililllllll 


o* string* Of 'string* o 


il^illllllll^llll 


1111111111 


22 


.%' string* Of * string* x 


|l||||3||i[nfal;:i 


G-9;a-f 


16 


2' string' or 'string' z 


Hex^eciinal 


'M09$%$& 


16 


& 




b,o,x,andzmaybelower-ariipperca^e(B,0, X,Z) 



Hereisanexarapteofbitconsi^ntsxis^diaaDATA^tatcmait 

integer a {4} 

data a/b'lG10',o'12',s'a',x'b'/ ' 

The above statement initializes the fhst elements of a four-element array to bi~ 
nary ,the second element to an octal value, and the last two elements to hexa- 
decimal values. 

The following rules apply to bit constants; 

L Bit constants have no type; they assume a numeric data type and size within 
the context in which they are used, 

2. When used with a a binary operator, octal and hexadecimal constants as- 
sume the data type of the other operand. For example; " 

INTEGER* 2 HILO 
KILO ~ 'FF'X 

' ' The constant h assumed to be of the INTEGER*2 type and two bytes long, 

3. In other cases, when used in statements that require a specific data type, the 
constant is assumed to be the required type and length. 

4. A length of four bytes is assumed for hexadecimal and octal constants used , 
as arguments; no data type is assumed. 

5. In other cases, the constant Is assumed to be of the INTEGER *4 data type, 

6. A hexadecimal or octal constant can specify up to 16 bytes of data. 

7. Zero padding to the left occurs when the assumed length of the constant is 
more than the digits specified by the constant. Truncation to left occurs 
when the assumed length of the constants is less that ofthe digits specified. 



( 
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Variables 



A variable is an entity with a name, data type, and value. Its value is either de- 
fined or undefined at any given time during the execution of a program. 

The variable name is a symbolic name of the data item and must conform to the 
rules given for symbolic names. The type of a variable is explicitly defined in a 
type-statement or implicitly by the first character of the name. 

A variable may not be used or referred to unless it has been defined through an 
assignment statement, input statement, DATA statement, or through association 
with a variable or array element that has been defined. 



Character Substrings 



Substring Names 



A character substring is a contiguous sequence of characters that is part of a 
character data item. A character substring must not be empty; i.e., it must con- 
tain at least one byte of storage. Each character is individually defined or unde- 
fined at any given time during the execution of a program. 



A substring name allows the corresponding substring to be defined and refer- 
enced in a character expression. A substring name has one of the following 
forms: 

v([el] : [e2]) 
a(s[,s]...) ([el] : [e2] ) 

where: 

v is a character variable name. 

a is a character array name. 

el and e2 are integer expressions, called substring expressions. 

An^n^nteger^har^tercan^gpecifted^l W&& Ifspecifled,e^naD^ ! 

mainlngaftetcoftvetsiDnamtei^atM. 
s is a subscript expression. 

The value el specifies the leftmost character position of the substring relative to 
the beginning of the variable or array element from which it was abstracted, 
while e2 is the rightmost position. Positions are numbered left to right beginning 
with 1. For example, EX(3:5) denotes characters in positions three through five 
of the character variable EX. C(2,4)(l:5) specifies characters in positions one 
through five of the character array element C(2,4). 

A character substring has the length e2~-el + 1. 
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Substring Values el, e2 



The value of the numeric expressions el and el in a substring name must fall 
within the range: 

1 < el < e2 < len 

where len is the length of the character variable or array element. A value of one 
is implied if el is omitted. A value of len is taken if e2 is omitted. When both el 
and e2 are not specified, the form v(:) is equivalent to v and the form a(s (>]...)(:) 
is equivalent to a(s [>]...). 

The specification for el and e2 can be any numeric integer expression, including 
array element references and function references. Consider the character variable 



XCHAR = 'QRSTUVWXYZ' . 
Examples of valid substrings taken from this variable are: 



Expression 


Substring Value 


Substring Length 


EXl = XCHAR (3: 8) 
EX2 = XCHAR(:8) 
EX3 = XCHAR (5:) 


STUVWX 

QRSTUVWX 

UVWXYZ 


6 
8 
6 



Other examples are: 
BQ(10)(2:IX) 



( 



BLT(:) 



Specifies characters in positions 2 
through integer IX of character array 
BQ(10). The value of IX must be 2 and 
the length of an element of BQ. 

Equivalent to the variable BLT. 



c 
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more typed ctoa declarations, substwcmte declarations (structure declarations and 
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AQgf 6gst0 Assignment st&tetiteiu , •, 

Arrays 

An array is a nonempty sequence of data of the same type occupying consecutive 
bytes in storage. A member of this sequence of data is referred to as an array 
element. 

Each array has the following characteristics: 

• An array name 

• A data type 

• Array elements 

• An array declarator specifying: 
o The number of dimensions 

o the size and bounds of each dimension 

An array can be defined using a DIMENSION, COMMON, or type statement 
(described in Chapter 4); it can have a maximum of seven (7) dimensions. 

NOTE: For information on array handling when interacting with programs writ- 
ten in another language, see Chapter 3 of the FORTRAN Programmer's Guide. 



< 
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Array Names and Types 



An array name is the symbolic name given to the array and must conform to the 
rules given in Chapter 1 given for symbolic names. An array can be specified 
by the array name alone when reference is made to the array as a whole. An ar- 
ray name is local to a program unit. 

An array element is specified by the array name and a subscript. The form of an 
array element name is: 

a (s [,s] . . . ) 

where: 

a is a array name. 

(s [>]...) is a subscript. 

s is a subscript expression. 

The number of subscript expressions must be equal to the number of dimensions 
in the array declarator for the array name. 

An array element can be any of the types of data allowed in FORTRAN. All ar- 
ray elements are the same data type. The data type is specified explicitly using a 
type statement, or implicitly by the first character of the array name. 

A different array element may be referenced by changing the subscript value of 
the array element name. 



Array Declarators 



An array declarator specifies a symbolic name for the array, the number of di- 
mensions in the array, and the size and bounds of each dimension. Only one ar- 
ray declarator for an array name is allowed in a program unit. The array 
declarator may appear in a DIMENSION statement, a type statement, or a COM- 
MON statement, but not more than one of these. 

An array declarator has the form: 

a (did]...) 

where: 

a is a symbolic name of the array. 

d is a dimension declarator of the following form: 
[dl:] d2 
where: 

dl is a lower dimension bound. 

d2 is a upper dimension bound. 

dl must be a numeric expression. d2 must be a numeric expression or an asterisk 
(*). An asterisk is allowed only if d2 is part of the last dimension declarator (see 
below). 
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An array declarator is either an actual array declarator or a dummy array 
declarator. In an actual array declarator the array name is not a dummy argu- 
ment. Conversely, a dummy array declarator is an array declarator that has a 
dummy argument as an array name. An array declarator may be one of three 
types: a constant array declarator, an adjustable array declarator, or an assumed- 
size array declarator. 

Each of the dimension bounds in a constant array declarator is a numeric con- 
stant expression. An adjustable array declarator is a dummy array declarator 
that contains one or more dimension bounds that are integer expressions but not 
constant integer expressions. An assumed-size array declarator is a dummy ar- 
ray declarator that has integer expressions for all dimension bounds, except that 
the upper dimension bound d2 of the last dimension is an asterisk (*). 

A dimension bound expression must not contain a function or array element 
name reference. 



Value of Dimension Bounds 



The lower dimension bound dl and the upper dimension bound d2 can have posi- 
tive, negative, or zero values. The value of the upper dimension bound d2 must 
be greater than or equal to that of the lower dimension bound dh 

If a lower dimension bound is not specified, its value is assumed to be one (1). 
An upper dimension bound of an asterisk (*) is always greater than or equal to 
the lower dimension bound. 

The size of a dimension that does not have an asterisk (*) as its upper bound has 
the value: 

(d2-d7)+l 

The size of a dimension that has an asterisk (*) as its upper bound is not speci- 
fied. 



< 



( 
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llllllil! 



The size ofanarr^ is exactly e<|uai to iheitutribetDfelenietitSCOJiminedbythe 

There are tfeme eases: 

size array equals the size ^fiheacfe^iai^ttteMatray. 

units; the size of the %$mm$ii-$imm&y equate: 

where to is the length of m element of the dummy array. | 

the array (the size of the array determined m described above). 



Storage and Element Ordering 



Storage for an array is allocated in the program unit in which it is declared, ex- 
cept in subprograms where the array name is specified as a dummy argument. 
The former declaration is called an actual array declaration. The declaration of 
an array in a subprogram where the array name is a dummy argument is called a 
dummy array declaration. 

The elements of an array are ordered in sequence and stored in column order. 
This means that the leftmost subscript varies first, as compared to row order, in 
which the rightmost subscript varies first. The first element of the array has a 
subscript value of one; the second element has a subscript value of two; and so 
on. The last element has a subscript value equal to the size of the array. Con- 
sider the following statement that declares an array with an INTEGER type state- 
ment: 

INTEGER t(2,3) 
The elements of this array are ordered as follows: 



t(l,l) 


t(2,l) 


t(l,2) 


t(2,2) 


t(3,3) 


t(2,3) 
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Subscripts 



The subscript describes the position of the element in an array and allows that 
array element to be defined or referenced. The form of a subscript is: 

where: 

s is a subscript expression. The term subscript includes the parentheses that 
delimit the list of subscript expressions. 

A subscript expression must be a numeric expression and may contain array ele- 
ment references and function references. However, it must not contain any func- 
tion references that affect other subscript expressions in the same subscript. 

A non-integer character can be specified for wfecr^ If $pedfle4, Ihe non-inte- 
ger character is converted to integer before use; fractional portions remaining after 

conversion are truncated. . •• < 

If a subscript expression is not of type integer, it is converted to integer values; 
any fractional part is truncated. 

Because an array is stored as a sequence in memory, the values of the subscript 
expressions must be combined into a single value that is used as the offset into 
the sequence in memory. That single value is called the subscript value. The 
subscript value determines which element of the array is accessed. The subscript 
value is calculated from the values of all the subscript expressions and the de- 
clared dimensions of the array (see Table 2.1). 



n 


Dimension 
Declarator 


Subscript 


Subscript Value 


1 

2 
3 

n 


Gi*0 
(jl:kl,j2:k2) 

(jl:kl,j2:k2,j3:k3) 
(jl :kl, ...jn:kn) 


(si) 

(si, s2) 

(sl,~s2,~s3) 

(Sl, ...Sn) 


l + (sl-jl) 

l+(sl-jl) + (s2-j2)*dl 

l + (sl-jl) + (s2-j2)*dl + 

(s3-j3 )*d2*dl 

l + (sl-jl) + (s2-j2)*dl 

+ (S3-J3 )*d2*dl + ... + 

(Sn-jn) *dn-l* ~dn-2* ...*dl 



Table 2.1. Determining Subscript Values 

The subscript value and the subscript expression value are not necessarily the 
same, even for a one-dimensional array. For example: 

DIMENSION X(10,10),Y(-1:8) 
Y(2) = X(l,2) 

Y(2) identifies the fourth element of array Y, the subscript is (2) with a subscript 
value of four, and the subscript expression is 2 with a value of two. X(l,2) iden- 
tifies the eleventh element of X, the subscript is (1,2) with a subscript value of 
eleven, and the subscript expressions are 1 and 2 with the values of one and two, 
respectively. 



( 



( 



( 
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Overview 



An expression perfomis a specified type of computation. It is composed of a se- 
quence of operands, operators, and parentheses. The types of expressions per- 
mitted in FORTRAN are: 

• Arithmetic 

• Character 

• Relational 

• Logical 

This section describes the formation, interpretation, and evaluation rules for each 
of the expressions. Mixed-mode expressions are FORTRAN 77 enhancements 
of FORTRAN 66 and are also discussed in this chapter. 

Arithmetic Expressions 

An arithmetic expression specifies a numeric computation which yields a nu- 
meric value upon evaluation. The simplest form of an arithmetic expression may 
be: 

• An unsigned arithmetic constant 

• The symbolic name of an arithmetic constant 

• An arithmetic variable reference 

• An arithmetic array element reference 

• An arithmetic function reference 

More complicated arithmetic expressions are constructed from one or more oper- 
ands together with arithmetic operators and parentheses. 

An aiijfcmetic dement may include logical entities bec^se logical data i$ treated 

operands exist for a given operator, the logical opetMdij& promoted to type IN- 
TEGERoffhe same byte length as the logical. 
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Arithmetic Operators 

The arithmetic operators are shown in the following table: 



c 



Operator 


Function 


** 


Exponentiation 


* 


Multiplication 


/ 


Division 


+ 


Addition or Identity 


— 


Subtraction or Negation 



An exponentiation, division, or multiplication operator can be used only with two 
operands and written between the two operands. An addition or subtraction op- 
erator can be used with two operands or one operand; in the latter case, it is writ- 
ten preceding that operand. 

Two operators may not be written in succession. (Note that the exponentiation 
operator consists of the two characters ** but is a single operator.) Implied opera- 
tors, as in implied multiplication, are not allowed. 

Interpretation of Arithmetic Expressions 

Interpretation of arithmetic expressions using these operators are shown below. 



Operator 


Use 


Interpretation 


** 


xl**x2 


Exponentiate x 1 to the power of x2. 


* 


xl*x2 


Multiply xl and x2 


/ 


xl/x2 


Divide xl by x2 


+ 


xl + x2 


Add xl and x2 




+x 


x (identity) 


- 


xl-x2 


Subtract x2 from xl 




-X 


Negate x 



( 



An arithmetic expression containing two or more operators is written and inter- 
preted based on a precedence relation among the arithmetic operators, unless the 
order is overridden by the use of parentheses. This precedence is shown in the 
following table: 



Operator 


Precedence 


+ ,- 


Highest 

Intermediate 

Lowest 



As an example: 

A/B-C**D 



( 
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The operators are executed in the following sequence: 

1 . C**D denotes the result X to give A/B-X. 

2. A/B denotes the result Y to give Y-X. 

3. Y-X gives the final result. 




® mr y operator must be evaluated lirst«i that ca2&, resulting i 







Arithmetic Operands 



Arithmetic operands must specify values with integer, real, double precision, 
complex, or double complex data types. Specific operands may be combined in 
an arithmetic expression. The arithmetic operands, in increasing complexity, are: 

• Primary 

• Factor 

• Term 

• Arithmetic expression 

A primary is the basic component in an arithmetic expression. The forms of a 
primary are: 

• Unsigned arithmetic constant 

• Symbolic name of an arithmetic constant 

• Arithmetic variable reference 

• Arithmetic array element reference 

• Arithmetic function reference 

• Arithmetic expression enclosed in parentheses 
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A factor consists of one or more primaries separated by the exponentiation op- 
erator. The forms of a factor are: 

• Primary 

• Primary ** factor 

Factors with more than one exponentiation operator are interpreted from right to 
left. For example, I**J**K is interpreted as I**(J**K), and I**J**K**L is inter- 
preted as I**(J**(K**L)), 

The term incorporates the multiplicative operators into arithmetic expressions. 
Its forms are: 

• Factor 

• Term/factor 

• Term* factor 

The above definition indicates that factors are combined from left to right in a 
term containing two or more multiplication or division operators. 

Finally, at the highest level of the hierarchy, are the arithmetic expressions. The 
forms of an arithmetic expression are: 

• Term 

• 4- term 

• -term 

• Arithmetic expression -f term 

• Arithmetic expression - term 

An arithmetic expression consists of one or more terms separated by an addition 
operator or a subtraction operator, The terms are combined from left to right. 
For example, A+ B-C has the same interpretation as the expression (A+B)-C. 
Expressions such as A*-JB and A+-B are not allowed. The correct forms are 
A*(~B) and A+O-B). 

An arithmetic expression may begin with a leading plus or minus sign. 
Arithmetic Constant Expressions 

An arithmetic constant expression is an arithmetic expression containing no vari- 
ables. Therefore, each primary in an arithmetic constant expression must be one 
of the following: 

• An arithmetic constant 

• The symbolic name of an arithmetic constant 

• An arithmetic constant expression enclosed in parentheses 
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In an arithmetic constant expression, the exponentiation operator is not allowed 
unless the exponent is of type integer. Variable, array element, and function ref- 
erences are not allowed. Examples of integer constant expressions are: 

7 

-7 

-7+5 

3**2 

x+3 (where x is the symbolic name of a constant) 



Integer Constant Expressions 



An integer constant expression is an arithmetic constant expression containing 
only integers. It can contain constants or symbolic names of constants, provided 
they are of integer type. As with all constant expressions, no variables, array ele- 
ments, or function references are allowed. 



Rules for Evaluating Arithmetic Expressions 



The data type of an expression is determined by the data types of the operands 
and functions that are referenced. Thus, integer expressions, real expressions, 
double precision expressions, complex expressions, and double expressions have 
values of type integer, real, double precision, complex, and double complex, re- 
spectively. 



Single-Mode Expressions 



Single-mode expressions are arithmetic expressions in which all operands have 
the same data type. The data type of the value of a single-mode expression is 
thus the same as the data type of the operands. When the addition operator or the 
subtraction operator is used with a single operand, the data type of the resulting 
expression is the same as the data type of the operand. 



Mixed-Mode Expressions 



Mixed-mode expressions contain operands with two or more data types. The 
data type of the value resulting from evaluation of a mixed-mode expression de- 
pends on the rank associated with each data type, as follows: 



Data Type 


Rank 


INTEGER*! 


1 (lowest) 


INTEGER* 2 


2 


INTEGER* 4 


3 


REAL* 4 


4 


REAL * 8 (double precision) 


5 


COMPLEX* 8 


6 


COMPLEX* 16 


7 (highest) 
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Exponentiation 



Integer Division 



Except for exponentiation (discussed below), the data type of the value produced 
by a mixed-mode expression is the data type of the highest-ranked element in 
the operation. The value of the lower-ranked operand is converted to the type of 
the higher ranked operand and the operation is performed on values with equiva- 
lent data types. For example, the data type of the value resulting from an opera- 
tion on an integer operand and a real operand is real. 

Operations which combine REAL*8 (DOUBLE PRECISION) and COM- 
PLEX*8 (COMPLEX) are not allowed. The REAL*8 operand must be explicitly 
converted (e.g., by using the SNGL intrinsic function). 



Exponentiation is an exception to the above rules for mixed-mode expressions. 
When raising a value to an integer power, the integer is not converted. The result 
is a type of the left operand. 

When a complex value is raised to a complex power, the value of the expression 
is defined as follows: 

x^2 = EXP(x 2 *LOG(X)) 



One operand of type integer may be divided by another operand of type integer. 
The result of an integer division operation is a value of type integer referred to as 
an integer quotient. The integer quotient is obtained as follows: 

• If the magnitude of the mathematical quotient is less than one, 
then the integer quotient is zero. For example, the value of the 
expression (1 8/30) is zero. 

» If the magnitude of the mathematical quotient is greater than or 
equal to one, then the integer quotient is the largest integer that 
does not exceed the magnitude of the mathematical quotient and 
whose sign is the same as that of the mathematical quotient. For 
example, the value of the expression (-9/2) is (-4). 



( 



( 



Character Expressions 



A character expression yields a character-string value upon evaluation. The 
simplest form of a character expression may be: 

• A character constant 



• A character variable reference 

• A character array element reference 

• A character substring reference 

• A character function reference 



( 
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More complicated character expressions are constructed from one or more oper- 
ands together with the concatenate operator and parentheses. 



Concatenate Operator 



Only one character operator is defined in FORTRAN: the concatenation (//) op- 
erator. A character expression formed from the concatenation of two character 
operands xl and x2 is specified as: 

xl II x2 

The result of this operation is a character-string with a value of xl extended on 
the right with the value of x2. The length is the sum of the lengths of the charac- 
ter operands. For example, the value of 

'HEL' // 'L02' 
is a string ' HELL02 ' . 

Character Operands 

A character operand must identify a value of type character and must be a char- 
acter expression. The basic component in a character expression is the character 
primary. The forms of a character primary are as follows: 

Character constant 

Symbolic name of a character constant 

Character variable reference 

Character array element reference 

Character substring reference 

Character function reference 

Character expression enclosed in parentheses 

A character expression consists of one or more character primaries separated by 
the concatenation operator. Its forms are: 

• Character primary 

• Character expression // character primary 

In a character expression containing two or more concatenation operators, the 
primaries are combined from left to right. Thus, the interpretation of the charac- 
ter expression 

'A' // 'BCD' // 'EF' 

is a same as: 

('A' // 'BCD') // 'EF' 
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The value of the above character expression is the same as the constant 
'ABCDEF. 

Except in a character assignment statement, concatenation of an operand with an 
asterisk (*) as its length specification is not allowed unless the operand is the 
symbolic name of a constant. 



Character Constant Expressions 



A character constant expression is a character expression containing nothing that 
can vary. Each primary in a character constant expression must be either a char- 
acter constant, the symbolic name of a character constant, or a character constant 
expression enclosed in parentheses. Variable, array element, substring, and func- 
tion references are not allowed. 



Relational Expressions 



A relational expression yields a logical value of either .TRUE, or .FALSE, upon 
evaluation and comparison of two arithmetic expressions or two character ex- 
pressions. A relational expression may appear only within a logical expression. 



Relational Operators 

The relational operators are: 



EQ. 


Equal to 


.NE. 


Not Equal to 


GT. 


Greater than 


.GE. 


Greater that or equal to 


.LT. 


Less than 


LE. 


Less than or equal to 



The precedence among FORTRAN operators is such that arithmetic and charac- 
ter operators are evaluated before relational operators. 

Relational Operands 

The operands of a relational operator may be arithmetic or character expressions. 
Two operands are required to form a relational of the following form: 

el relop e2 

where: 

el and e2 are arithmetic or character expressions. 

relop is the relational operator. 
Note that el and e2 must be both arithmetic or both character. 
Evaluating Relational Expressions 

Evaluation of a relational expression produces a result of type logical, with a 
value of .TRUE, or .FALSE.. The manner in which the expression is evaluated 
depends upon the data type of the operands. 

3—8 
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Arithmetic Relational Expressions 

An arithmetic relational expression has the form: 
el relop el 

where: 

el and e2 are each an integer, real, double precision, complex, or double 
complex expression. 

relop is a relational operator. 

Complex type operands are allowed only when the relational operator .EQ. or 
.NE. is used. 

An arithmetic relational expression has the logical value .TRUE, only if the val- 
ues of the operands satisfy the relation specified by the operator. Otherwise, the 
value is .FALSE.. If the two arithmetic expressions el and e2 differ in type, the 
expression is evaluated as follows: 

((el) -(e2)) relop 

where the value (zero) is of the same type as the expression ((el)- (e2)) and the 
type conversion rules apply to the expression. A double precision value must not 
be compared with a complex value. 

Character Relational Expressions 

A character relational expression has the logical value .TRUE, only if the values 
of the operands satisfy the relation specified by the operator. Otherwise, the 
value is .FALSE. It has the following form: 

el relop e2 
where el and e2 are character expressions and relop is a relational operator. 

The result of a character relational expression depends on the collating sequence 
as follows. 

• If el and e2 are single characters, their relationship in the collat- 
ing sequence determines the value of the operator, el is less 
than or greater than el if el is before or after el respectively in 
the collating sequence. 

• If either el or e2 are character strings with length greater than 1 , 
corresponding individual characters are compared from left to 
right until a relationship other than .EQ. can be determined. 

• If the operands are of unequal length, the shorter operand is ex- 
tended on the right with blanks to the length of the longer oper- 
and for purpose of the comparison. 

• If no other relationship can be determined after the strings are 
exhausted, the strings are equal. 
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The collating sequence depends partially on the processor; however, equality 
tests .EQ. and .NE. don't depend on the processor collating sequence and can be 
used on any processor. 



Logical Expressions 



Logical Operators 



A logical expression specifies a logical computation which yields a logical value 
upon evaluation. The simplest form of a logical expression is a: 

• Logical constant 

• Logical variable reference 

• Logical array element reference 

• Logical function reference 

• Relational expression 

More complicated logical expressions are constructed from one or more logical 
operands together with logical operators and parentheses. Five logical operators 
are permitted in FORTRAN and are discussed in the next section. 

The logical operators defined in FORTRAN are shown in the table below. 



Operator 


Function 


.NOT. 


Logical Negation 


.AND. 


Logical Conjunct 


.OR. 


Logical Disjunct 


.EQV. 


Logical Equivalence 


.NEQV. 


Logical exclusive OR 


Sjij^|||&:;i; 


Same as .NEQV. 



Only the logical negation operator .NOT. is used with one operand; all other logi- 
cal operators require two operands. 

When a logical expression contains two or more logical operators, the order in 
which the operands are combined is shown below, unless the order is changed by 
the use of parentheses. 



Operator 


Precedence 


.NOT. 

.AND. 
.OR. 

.EQV.,.NEQV||||| 


Highest 

• 
• 
Lowest 



( 



( 
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For example, in the expression 

W .NEQV. X .OR. Y .AND. Z 

The operators are executed in the following sequence: 

• Y .AND. Z denote the result as A to yield W .NEQV. X .OR. A 

• X .OR. A denote the result as B to yield W .NEQV.B 

• W .NEQV.B gives the final result. 

Logical Operands 

Logical operands specify values with a logical data type. The forms of a logical 
operand are: 

• Logical primary 

• Logical factor 

• Logical term 

• Logical disjunct 

• Logical expression 

The logical primary is the basic component of a logical expression. The forms of 
a logical primary are: 

• Logical constant 

• Symbolic name of a logical constant 

• lliiiiiiibr logical variable reference 

• Logical array element reference 

• liiiiii;br logical function reference 

• Relational expression 

• lllllliljlor logical expression in parentheses 




Note that two logical operators may not appear in succession and that implied 
logical operators are not allowed. 

The logical factor provides for the inclusion of the logical negation operator 
.NOT. and has the following forms: 
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Logical primary 
.NOT. logical primary 



The logical term uses the logical conjunct operator .AND. to combine logical 
factors. It takes the forms: 

• Logical factor 

® Logical term .AND. logical factor 

In evaluating a logical term with two or more .AND. operators, the logical factors 
are combined from left to right. For example, X . Al^D. Y .AND. Z has the same 
interpretation as (X .AND. Y) .AND. Z. 

The logical disjunct is a sequence of logical terms separated by the .OR. operator 
and has the following two forms: 

• Logical term 

• Logical disjunct .OR. logical term 

In an expression containing two or more .OR. operators, the logical terms are 
combined from left to right in succession. For example, the expression X .OR. Y 
.OR. Z has the same interpretation as (X .OR. Y) .OR. Z. 

At the highest level of complexity is the logical expression. A logical 
expression is a sequence of logical disjuncts separated by either the .EQV. , 
*XOR. * or JSfiEQV. . operators. Its forms are: 

• Logical disjunct 

• Logical expression, EQV, logical disjunct 

• Logical expre^ioti .NBQV. logical disjaact ; 

• Logical expression ,XOR. logical disjunct 

The logical disjuncts are combined from left to right when a logical expression 
contains two or more .EQV„ .XOR., or WMWM operators. 

A logical constant expression is a logical expression in which each primary is 
either a logical constant, the symbolic name of a logical constant, a relational ex- 
pression in which each primary is a constant, or a logical constant expression en- 
closed in parentheses. A logical constant expression may contain arithmetic and 
character constant expressions but not variables, array elements, or function ref- 
erences. 

Interpretation of Logical Expressions 

In general, logical expressions containing two or more logical operators are exe- 
cuted according to the hierarchy of operators described previously, unless the 
order has been overridden by the use of parentheses. The form and interpretation 
of the logical operators is defined as shown in the following table: 
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IF 


THEN 


Xi= 


X2= 


.NOT.X2 


X1.AND.X2 


Xi .OR.X2 


Xi .EQV.X2 


X1.XOR.X2 


.FALSE. 
.FALSE. 
.TRUE. 
TRUE. 


.FALSE. 
.TRUE. 
.FALSE. 
.TRUE. 


.TRUE. 
.FALSE. 


.FALSE. 
.FALSE. 
.FALSE. 
.TRUE. 


.FALSE. 
.TRUE. 
.TRUE. 
.TRUE. 


TRUE. 
.FALSE. 
.FALSE. 
TRUE. 


.FALSE. 
TRUE. 
TRUE. 
.FALSE. 



General Rules for Evaluating Expressions 

Several rules are applied to the general evaluation of expressions. This section 
covers the priority of the different FORTRAN operators, the use of parentheses 
in specifying the order of evaluation, and the rules for combining operators with 
operands. 

Note that any variable, array element, function, or character substring in an ex- 
pression must be defined with a value of the correct type at the time it is refer- 
enced. 

Precedence of Operators 

The precedence among arithmetic operators was given previously as: 



Operator 


Precedence 


** 

n*,/ 
n+,- 


Highest 

Intermediate 

Lowest 



The precedence among logical operators was given previously as: 



Operator 


Precedence 


.NOT. 

.AND. 

.OR. 

.EQV. 
.NEQV. 

SBi • 




Highest 

• 
• 

Lowest 



No precedence exists among the relational operators, and there is only one char- 
acter operator, // (concatenation). 

The precedence among expression operators in each type is: 
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Type 


Precedence 


Arithmetic 
Character 
Relational 
Logical 


Highest 

« 

Lowest 



( 



Integrity of Parentheses and Interpretation Rules 



Parentheses are used to explicitly specify the order of evaluation of operators 
within an expression. Expressions within parentheses are treated as an entity. 

In an expression containing more than one operation, the processor first evaluates 
expressions within parentheses. Subexpressions within parentheses are evaluated 
beginning with the innermost subexpression and proceeding sequentially to the 
outermost. The processor then scans the expression from left or right and per- 
forms the operations according to the operator precedence described previously. 



c 



( 
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Overview 



Specification statements are nonexecutable FORTRAN statements that provide 
the processor information about the nature of specific data and the allocation of 
storage space for this data. 

The specification statements are summarized below. 

Statement Purpose 



AUTOMATIC, STATIC 



BLOCK DATA 



COMMON 



DATA 



Data type 



Controls the ^OQa^on<rfj^ti>mge to wriables and 

First statement in a block data subprogram used 
to assign initial values to variables and array ele- 
ments in named common blocks. 

Declares variables and arrays so that they are put 
in a storage area that is accessible to multiple 
program units, thus allowing program units to 
share data without using arguments. 

Supplies initial values of variables, array ele- 
ments, arrays, or substrings. 

Explicitly defines the type of a constant, vari- 
able, array, external function, statement func- 
tion, or dummy procedure name. Also, may 
specify dimensions of arrays and the length of 
the character data. 
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Statement 
DIMENSION 

EQUIVALENCE 

EXTERNAL 
IMPLICIT 

INTRINSIC 

NAMEUST 
PARAMETER 



Purpose 

Specifies the symbolic names and dimension 
specifications of arrays. 

Specifies the sharing of storage units by two or 
more entities in a program unit, thus associating 
those entities. 

Identifies external or dummy procedure. 

Changes or defines default implicit type of 
names. 

Identifies intrinsic function or system subrou- 
tine. 

Permits a group ofvaiiabfes or array nmxcs to be 
associated with $ unique group name. 

Gives a constant a symbolic name. 



( 



POINTER 
PROGRAM 

SAVE 

mm 



Establishes pairs of variables and pointers. 

Defines a symbolic name for the main program. 

Creates a rte&tdin the foimat specified by a. pre- 
viously declared STRUCTURE statement . 

Retains the values of variables and arrays after 
execution of a RETURN or END statement in a 
subprogram. 

Defines & record, structure that can be referenced 
by one ormore RECORD statement. 



( 



lilllilll 



Prevents tbe compiler from optimizing specified 
variables* arrays, and common blocks of data, 



Detailed descriptions of the above statements follow in alphabetical order. 



( 
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AUTOMATIC 

• • STATIC 




























AUTOMATIC 


STATIC 






liliiii- 


Variables are unaligned. They 
do not reflect any changes caused 
in the previous execution of the 


Values of the variables in the 
subprogram are unchanged since 
the last execution of the sub- 








subprogram. 


program. 






111! 


The storage area associated with 


The current values of the variable 






the variable is deleted. 


are retained in the static storage 










area. 




AUTOMATIC variables have the following advantages: 


IPiii^l^illlll^llllllftlll^l^i^S 


They permit the program to execute more efficiently by taking 
less space and reducing execution time. 




* They permit recursion; a subprogram can call itself either di- 
rectly or indirectly, and the expected values are available cither 
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AUTOMATIC 
STATIC 
Rules for Use 



llljgillj 



c 






real length, anet/ total (SO) 
Static length, ariet, total 
COMPLEX ' i, b{20), J (2,3, 5} 
STATIC ± 

IMPLICIT? INTEGER {£,m~p) 
IMPLICIT STATIC {£,ta~p) 



( 



( 
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Specification Statements 



Use 



Syntax 



BLOCK DATA 



First statement in a block data subprogram used to assign initial values to vari- 
ables and array elements in named common blocks. 



BLOCK DATA [sub] 



where sub is a symbolic name of the block data subprogram in which the 
BLOCK DATA statement appears. 



Method of Operation 



Rules of Use 



A block data subprogram is a nonexecutable program unit with a BLOCK 
DATA statement as its first statement, followed by a body of specification state- 
ments and terminated by an END statement. The specification statements al- 
lowed include: COMMON, DATA, DIMENSION, EQUIVALENCE, 
IMPLICIT, PARAMETER, RECORD, SAVE, structure declarations, and type 
statements. Comment lines are permitted. 

Only entities in named common blocks or entities associated with an entity in a 
common block may be initially defined in a block data subprogram. 



1 . The optional name sub is a global name and must be unique. Thus, BLOCK 
DATA subprograms may have the same external name. 

2. An executable program may contain more than one block data subprogram 
but may not contain more than one unnamed block data subprogram. 

3. A single block data subprogram may initialize the entities of more than one 
named common block. 
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Chapter 4 

COMMON 
Use 



Syntax 



Declares variables and arrays so that they are put in a storage area that is accessi- 
ble to multiple program units, thus allowing program units to share data without 
using arguments. 



COMMON [/[cJb]/] nlist [[,]/[cJb]/ nlist] . . . 

where cb is a common block name and nlist is a list of variable names, array 
names, array declarators, oii;i|||||ii| 



Method of Operation 



c 



A storage sequence, composed of a series of storage units, that is shared between 
program units is referred to as common storage. For each common block, a com- 
mon block storage sequence is formed consisting of the storage sequences of all 
entities in the list of variables and arrays for that common block. The order of 
the storage sequence is the same as their order of appearance in the list. In each 
COMMON statement, the entities specified in the common block list nlist fol- 
lowing a block name cb are declared to be in common block cb. 

In an executable program, all common blocks with the same name have the same 

first storage unit. This establishes the association of data values between pro- | 

gram units. 

The storage sequence formed above is extended to include all storage units of 
any storage sequence associated with it by equivalence association. 

FORTRAN has the following types of common storage: 

• Blank common storage, which can be accessed by all program 
units in which it is declared, It has no identifying name and one 
blank common area exists for the complete executable program. 

• Named common storage, which has an identifying name and is 
accessible by all program units in which common storage with 
the same name is declared. 

Entities in a named common may be initially defined with the DATA initializa- 
tion statement in a BLOCK DATA subprogram, but entities in blank common 
may not be initialized by the DATA statement, 



( 
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Specification Statements 



COMMON 

The number of storage units needed to store a common block is referred to as its 
size. This includes any extensions of the sequence resulting from equivalence 
association. The size of a named common block must be the same in all program 
units in which it is declared. The size of blank common need not be the same 
size in all program units. 



Rules of Use 



Restrictions 



1 . A variable name, array name, array declarator, or record may appear only 
once in all common block lists within a program unit. 

2. A blank common block is specified by omitting the common block name cb 
for each list. Thus, if the first common block name is omitted, all entities 
appearing in the first nlist are specified to be in a blank common. 

3. If the first ch is omitted, the first two slashes become optional. Two slashes 
with no block name between them declare the entities in the following list to 
be in blank common. 

4. Any common block name ch or an omitted cb for blank common may occur 
more than once in one or more COMMON statements in a program unit. The 
list following each appearance of the same common block name is treated as 
a continuation of the list for that common block name. 

5. All entities in a common block containing a character variable or character 
array must be of type character. 



1 . Names of dummy arguments of an external procedure in a subprogram must 
not appear in a common block list. 

2. A variable name that is also a function name must not appear in the list. 
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COMMON 

Examples 
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( 



COMMON //F,X,B(5) 
COMMON F,X,B(5) 

COMMON /LABEL/NAME, AGE, DRUG, DOSE//Y (33) , 
Z, /RECORD/, DOC, 4 TIME (5), TYPE (8) 

The first two examples are equivalent and define a blank common block (note 
that these two COMMON statements must not appear in the same program unit). 
The third example makes the following COMMON storage assignments: 

1 . NAME, AGE, DRUG, and DOSE are placed in common block LABEL. 

2. Y and Z are placed in blank common. 

3. DOC, TIME, and TYPE are placed in common block RECORD. 



( 



c 
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Specification Statements 



COMMON 

The use of a COMMON statement by a subprogram and its calling program is: 



C THIS PROGRAM READS VALUES AND PRINTS THEIR 
C SUM AND AVERAGE 

COMMON TOT, A(20), K f XMEAN 

READ (5,10) K, (A(I), I = l f K) 

CALL ADD 

WRITE (6,20) TOT, XMEAN 
10 FORMAT (I5/F<10.0)) 
20 FORMAT (5X, 5HSUM =, 2X, F10 . 4/5X, 12HMEAN VALUE =,2X,F10.4) 

STOP 

END 
c 

C THIS SUBROUTINE CALCULATES THE SUM AND AVERAGE 
C 

SUBROUTINE ADD 

COMMON PLUS, SUM (20), M, AVG 

PLUS = SUM(l) 

DO 5 I = 2,M 
5 PLUS = SUM (I) + PLUS 

AVG = PLUS/FLOAT (M) 

END 



Note that there are two COMMON statements: one in the calling program and 
one in the subroutine. Both define the same four entities in the COMMON even 
though each common statement uses a unique set of names. The calling program 
has access to COMMON storage through entities TOT, A, K and XMEAN. Sub- 
routine ADD has access to the same common storage through the use of the enti- 
ties PLUS, SUM, M, and AVG. 
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DATA 
Use 

Supplies initial values of variables, array elements, arrays, or substrings. 
Syntax 

DATA nlist/clist/ [ [ , ] nlist/clist/} . . . 

where: 

nlist is a list of variable names, array names, array element names, substr- 
ing names or impliecWDO lists (described later in this chapter). 

clist is a list of the form : 

a[,a]... 

where a has either of the forms: 

c 
r*c 

c is a constant or the symbolic name of a constant. 



Method of Operation 



In data initialization, the first value in clist is assigned to the first entity in nlist, 
the second value in clist to the second entity in nlist, and so on. There is a one- 
to-one correspondence between the items specified by nlist and the constants 
supplied in clist. Hence, each nlist and its corresponding clist must contain the 
same number of items and must agree in data type. If necessary, the clist con- 
stant is converted to the type or length of the nlist entity exactly as for assign- 
ment statements. 

If the length of the character entity in nlist is greater than the length of its corre- 
sponding character constant in clist, then blank characters are added to the right 
of the character constant. But if the length of the character entity in nlist is less 
than that of its corresponding constant in clist, the extra rightmost characters in 
the constant are ignored; only the leftmost characters are stored. Each character 
constant initializes only one variable, array element, or substring. 



c 



r is a nonzero, unsigned integer constant or the symbolic name of a 
positive integer constant. The second form implies r successive ap- 
pearances of the constants I 



c 
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Specification Statements 



Rules 



DATA 

nOIEt Mm enhancement to FORTRAN 77, m arithmetic or logical entity 

piler generate a warning message for daainitadizatiOT^Qfthis tj?pe, 



1 . Each nlist and its corresponding clist must have the same number of items 
and must correspond in type when either is LOGICAL or CHARACTER. If 
either is of arithmetic type, then the other must be of arithmetic type. 

2. If an unsubscripted array name is specified in nlist, the corresponding clist 
must contain one constant for each element of the array. 

3. If two entities are associated in common storage, only one can be initialized 
in a DATA statement. 

4. Names of entities in named common blocks may appear in nlist only within a 
BLOCK DATA subprogram. 

5. Each subscript expression in nlist must be an integer constant expression, 
except for implied-DO variables. 

6. Each substring expression in nlist must be an integer constant expression. 

7. A numeric value can be used to initialize ^^moterv^ri^bie or dement, 
The length ot that character variable or array element must be one, andfhe 

$ An untyped hexadecimal, octal, or binaiy constant oan be TOed to initialize a 
variable or array element If the number erf bits defined by thec#n$tantis 

9. A Hollerith constant can be used to initialize a numeric variable or array 
element The rales for Hollerith assignment apply, 
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DATA 

Restrictions 



1 . The list nlist must not contain names of dummy arguments, functions, and 
entities in blank common, or those associated with entities in blank common. 

2. A variable, array element, or substring must not be initialized more than once 
in an executable program. 

3. If a data statement accesses variables in a common block, only one data 
statement in the executable can access that common block. 

Example 



REAL 




A(4) r B 


LOGICAL 




T 


COMPLEX 




C 


INTEGER 




P,K(3),R 


CHARACTER* 


5 


TEST(4) 


PARAMETER 




(P-3) 


DATA A,B/0 


.,12 


,5.12E5,0,,6/, T/.TRUE./, 


5 C/(7.2, 1. 


234)/,K/P*0/, TEST/3*'MAYBE','DONE?'/ 



The DATA statement above defines the variables declared immediately preceding it 
as follows: 



( 



A(l) = .OE+00 A(2) = .12E+02 

A(3) = .SIZE6 A(4) = .OE+00 

B = 6 

T = .TRUE. 

C = (.72E+01, .1234+01) 

K(l) = K(2) = K(3) = 

TEST(l) = 'MAYBE' TEST (2) = 'MAYBE' 

TEST (3) = 'MAYBE' TEST (4) = 'DONE?' 



The following gives examples of implied-DO statements used with a DATA 
statements: 



DATA 


LIMIT 


/1000/ 


, (A(I) 


r 1= 


l,25)/25*0/ 


DATA 


((A(I 


rJ), 


J 


- 1,5), 


I = 


1,10)/50*1.1/ 


DATA 


(x(i,: 


I), 


I = 


1,100) 


/100 


* 1.1/ 




DATA 


((A(I 


rJ)» 


J 


= 1,1), 


I = 






1,3)/11,21, 


,22, 


31, 


32,33/ 









( 
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Specification Statements 



Data Type Statements (numeric) 

Numeric Data Types 

Use 



Syntax 



Overrides implicit typing or explicitly defines the type of a constant, variable, 
array, external function, statement function, or dummy procedure name. Also, 
may specify dimensions of arrays. 



type v iiiiii iiiiiift [, viiiiii jmMWg®] 

type is one of the keywords shown in the following table: 



Type Keywords 



INTEGER 
:.Il!^EJ§ER^i.:| 

lllllllllll 

LOGICAL 
lllllljllj 

Ijiiillliii 
iiiiiiiiiii 



COMPLEX 



REAL 

^Blii^ii:§^lllillll8lisillllll 

DOUBLE PRECISION 



v is a variable name, array name, array declarator, symbolic name of a 

constant, function name, or dummy procedure name. 

clist clist is a list of values bounded by slashes; the value becomes the 
initial value of the type being declared. 



^m^^^^w^^ira^^^^^^^^^^^iMPi 
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Data Type Statements (numeric) 

NOTE: The following pairs of keywords are synonymous: 

BYTE and INTEGER*! 

REAL and REAL* 4 , 

DOUBLE PRECISION and REAL* 8, 

COMPLEX and COMPLEX*8 

DOUBLE COMPLEX and COMPLEX* 16 

LOGICAL and LOGICAL* 4 

See Chapter 2 of the FORTRAN Programmer's Guide for information on the 
alignment, size, and value ranges of these data types. 



Method of Operation 



Rules for Use 



The symbolic name of an entity in a type statement establishes the data type for 
that name for all its subsequent appearances in the program unit in which it is 
declared. 

The type specifies the data type of the corresponding entities. That is, the INTE- 
GER statement explicitly declares entities of type integer and overrides implicit 
typing of the listed names. The REAL statement specifies real entities, the 
COMPLEX statement specifies complex entities, and so on. 



1 . Type statements are optional, and must be placed in the beginning of a pro- 
gram unit, but can be preceded by an IMPLICIT statement. 

2. Symbolic names, including those declared in type statements, have the scope 
of the program unit in which they are included. 

3. More than one type statement beginning with the same keyword may be in- 
cluded in the program unit. 

4. A symbolic name must not have its type explicitly specified more than once 
within a program unit. 

5. The name of a main program, subroutine, or block data subprogram must not 
appear in a type statement. 

6. The compiler g^vides a DOUBLE COJVlFLEXv^i^toiiDfthefoliawing 
ftuictioos; ' 



liilii 



llillllllll 
iiiiiiiii 



lilliiil 



SSKpliait -typo con-version 

Ira&gin^ry part of comply a. rgument 
Campl&K absolute ^alu^ 



c 



( 



( 
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Specification Statements 



Data Type Statements (numeric) 



Examples 



lowing to take place: 



REAL length, anet, TOTAL (50) 

INTEGER hour, sum(5:15), first, uvr(4,8,3) 

LOGICAL bx (1:15, 10) , flag, stat 

COMPLEX I, B(20), J(2,3,5) 

The example above declares that: 

1 . length and anet are names of type real. The specification of anet confirms 
implicit typing using the first letter of the name and could have been omitted 
in the REAL statement. 

2. total is a real array. 

3. hour and first are integer names, uvr and sum are integer arrays, and illus- 
trate the use of the type statement to specify the dimensions of an array. 
Note that when an array is dimensioned in a type statement, a separate DI- 
MENSION statement to declare the array is not permitted. 

4. flag and stat are logical variables; bx is a logical array. 

5. / is a complex variable; B and / are complex arrays. 
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Use 



Syntax 



Rules for Use 



Data Type Statements (character) 



Declares the symbolic name of a constant, variable, array, external function, 
statement function, or dummy procedure name and specifies the length of the 
character data. 



CHARACTER [*len [,]] nam [,nam\ . . . 
where: 

len is a length specification that gives the length, in number of charac- 
ters, of a character variable, character array element, character con- 
stant, or character function, len is one of the following: 

® An unsigned, nonzero, integer constant 

* A positive valued integer constant expression en- 
closed in parentheses 

• An asterisk enclosed in parentheses (*) 

nam is one of the following: 

v [Hen] 

v is a variable name, symbolic name of a constant, 
function name, or dummy procedure name. 

a [(d)] [Hen] 

aid) is an array declarator. 



1 . The length specification len that follows the keyword CHARACTER denotes 
the length of each entity in the statement that does not have its own length 
specification. 

2. A length specification immediately following an entity applies only to that 
entity. When an array is declared, the length specified applies to each array 
element. 

3. If no length specification is given, a length of one is assumed. 

4. The length specifier of (*) can be used only for names of external functions, 
dummy arguments of an external procedure, and character constants. 



( 



( 



( 
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Specification Statements 



Data Type Statements (character) 



Example 



« For a character constant, the (*) denotes that the length 
of the constant is determined from the length of the char- 
acter expression given in the PARAMETER statement. 

• For a dummy argument of an external procedure, the (*) 
denotes that the length of the dummy argument is the 
length of the actual argument when the procedure is in- 
voked. If the associated actual argument is an array 
name, the length of the dummy argument is the length of 
an element of the actual array. 

• For an external function name, the (*) denotes that the 
length of the function result value and the local variable 
with the same name as the function entry name is the 
length that is specified in the program unit in which it is 
referenced. Note that the function name must be the 
name of an entry to the function subprogram containing 
this TYPE statement. 

5. If an actual len is declared for an external function in the referencing pro- 
gram unit and in the function definition, len must agree with the length speci- 
fied in the subprogram that specifies the function. If not, then the function 
definition must use the asterisk (*) as covered previously, but the actual len 
in the referencing unit must not be (*). 

6. The length specified for a character statement function or statement function 
dummy argument of type character must be an integer constant expression. 



CHARACTER name*40, gender *1, pay(12)*10 
In the above example: 

1 . name is a character variable of length forty. 

2. gender has a length of one. 

3. pay is a character array with 12 elements, each of which is 10 characters in 
length. 
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Use 



Syntax 



DIMENSION 

Specifies the symbolic names and dimension specifications of arrays. 

DIMENSION a(d) [,a(d)] . .. 
where a(d) is an array declarator. 

synonym for tlie DIMENSION statement, and carries the identical meaning, 



Method of Operation 



Rules for Use 



Examples 



A symbolic name x appears in a DIMENSION statement causing an array x to be 
declared in that program unit. 

1. The dimension specification of an array can appear only once in a program 
unit. 

2. The name of an array declared in DIMENSION statement may appear in a 
type statement or a COMMON statement without dimensioning information. 



DIMENSION z(25), a (6, 6), ams(2,5,5) 

The DIMENSION statement declares z as an array of 25 elements, a as an array 
of 36 elements (6x6), and ams as an array of 50 elements (2x5x5). 



( 



( 



( 
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Specification Statements 



EQUIVALENCE 
Use 



Syntax 



Specifies the sharing of storage units by two or more entities in a program unit 
thus associating those entities. This allows the same information to be referenced 
by different names in the same program unit. 



EQUIVALENCE (nlist) [, (nlist) ] . . . 

where nlist is a list of variable names, array element names, array names, and 
character substring names. 



Method of Operation 



Rules of Use 



An EQUIVALENCE statement specifies that the storage sequences of the entities 
in the list have the same first storage unit. This causes association of the entities 
in the list or of other elements as well. The EQUIVALENCE statement only pro- 
vides association of storage units and does not cause type conversion or imply 
mathematical equivalence. Thus, if a variable and an array are equivalenced, the 
variable does not assume array properties and vice versa. 

Character entities may be associated by equivalence only with other character 
entities. The character entities may be specified as character variables, character 
array names, character array element names, and character substring names. As- 
sociation is made between the first storage units occupied by the entities appear- 
ing in the equivalence list of an EQUIVALENCE statement. This statement may 
cause association of other character elements as well. The lengths of the equi- 
valenced character entities are not required to be equal. 

Variables and arrays may be associated with entities in common storage. The 
result may be to lengthen the common block. However, association through the 
use of the EQUIVALENCE statement must not cause common storage to be 
lengthened by adding storage units before the first storage unit in the common 
block. 



1 . Each subscript expression or substring expression in an equivalence list must 
be an integer constant expression. 

2. If an array element name is specified in an EQUIVALENCE statement, the 
number of subscript expressions must be the same as the number of dimen- 
sions declared for that array. 

3. An array name without a subscript is treated as an array element name that 
identifies the first element of the array. 
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EQUIVALENCE 

The lower bouridv&lu&s to the array declaration are always a^umed for misdtig 



( 



Restrictions 



1 . Names of dummy arguments of an external procedure in a subprogram must 
not appear in an equivalence list. 

2. A variable name that is also a function name must not appear in the list 

3. A storage unit can appear in no more than one EQUIVALENCE storage se- 
quence. 

4. An EQUIVALENCE statement must not specify that consecutive storage 
units are to occupy nonconsecutive storage positions. 

5. An EQUIVALENCE statement must not specify that a storage unit in one 
common block be associated with any storage unit in a different common 
block. 



( 



Example 1 



DIMENSION M(3,2) ,P(6) 

EQUIVALENCE (M ( 2 , 1 ) , P ( 1 ) ) 

The following figure shows the logical representation in storage caused by the 
above two statements: 



( 
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Specification Statements 



EQUIVALENCE 



Example 2 



M(l,l) 


M(2,l) 


M(2,3) 


M(l,2) 


M(2,2) 


M(3,2) 






J 


J 


J 


1 


1 






P(l) 


P(2) 


P(3) 


P(4) 


P(5) 


P(6) 



CHARACTER ABT*6, BYT (2) *4, CDT*3 
EQUIVALENCE ( ABT , BYT ( 1 ) ) , ( CDT , BYT ( 2 ) ) 

The following figure shows the logical representation in storage caused by the 
above two statements: 




The following examples using EQUIVALENCE statements are invalid: 

REAL A (2) 

DOUBLE PRECISION S(2) 

EQUIVALENCE (A(l), S(l)), (A(2), S(2)) 

This specifies that consecutive storage units are to occupy nonconsecutive stor- 
age positions. Note that a double precision variable occupies two consecutive 
numeric storage units in a storage sequence. 
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Purpose 
Use 



Syntax 



Rules for Use 



EXTERNAL 



Identify external or dummy procedure. 



Specifies that a symbolic name represent an external procedure or a dummy pro- 
cedure. This allows that name to be used as an actual argument in a program 
unit. 



EXTERNAL proc [ f proc] ... 

where proc is a name of an external procedure or dummy procedure. 



1 . An external procedure name or a dummy procedure name must appear in an 
EXTERNAL statement in the program unit, if the name is to be used as an 
actual argument in that program unit. 

2. If an intrinsic function name appears in an EXTERNAL statement, indicating 
the existence of an external procedure having that name, the intrinsic func- 
tion is not available for use in the same program unit in which the EXTER- 
NAL statement appears. 

3. A symbolic name must appear only once in all of the EXTERNAL state- 
ments of a program unit. 

4. A NOF77 qualifier in ao OPTIONS statement or the ™nof?7 comtnmd 
Urn option permits the following: 

* totrfc&ic function names cm^ppt^iti^elkttifmhprGgr^m^m 

an E1CTERNAL statement . 

the same name %$% FORTRAN intrinsic taction and that the 
user-supplied function is to be invoked 



c 
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EXTERNAL 

Restrictions 

Example 



A statement function name must not appear in an EXTERNAL statement. 



Consider the following statements: 

EXTERNAL G 

CALL SUB1 (X,Y,G) 

and the corresponding subprogram: 

SUBROUTINE SUBl (RES, ARG, F) 

RES = F(ARG) 

END 

The dummy argument F in subroutine SUBl is the name of another subprogram; 
in this case, the external function G. 
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Use 



Syntax 1 



IMPLICIT 



Changes or defines default implicit type of names. 

IMPLICIT typ (a[ r a]...)- [,typ(a[,a] . . . ) ] . . . 
where: 

type is one of the keywords shown in the following table: 



Type Keywords 



^INTEGER........ 

liililiiili 

lllllllllll 
lllllllliil 

LOGICAL 
llllpllll 

lllllllllll 
lllllllllll 



COMPLEX 

REALMS 

DOUBLE' PRECISION 



CHARACTER 



len 



is either a single alphabetic character or a range of letters in alphabetical 
order. A range of letters is specified as /l - 12 , where /l and Z2 are the 
first and last letters of the range, respectively. 

is a length specification that gives the length, in number of characters, of 
a character variable, character array element, character constant, or char- 
acter function, len is one of the following: 

® An unsigned, nonzero, integer constant 

• A positive valued integer constant expression en- 
closed in parentheses 

If len is not specified, the value of len is 1. 



Method of Operation — Syntax 1 



An IMPLICIT statement specifies a type for all variables, arrays, external func- 
tions, and statement functions for which no type is explicitly specified by a type 
statement. If a name has not appeared in a type statement, then its type is implic- 
itly determined by the first character of its name. The IMPLICIT statement es- 
tablishes which data type (and length) will be used for the indicated characters. 



( 



c 
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Specification Statements 



IMPLICIT 

By default, names beginning with the alphabetic characters A through H or O 
through Z are implicitly typed REAL; names beginning with I, J, K, L, M, or N 
are implicitly typed INTEGER. The IMPLICIT statement can be used to change 
the type associated with any individual letter or range of letters. 

An IMPLICIT statement applies only to the program unit that contains it and is 
overridden by a type statement or a FUNCTION statement in the same subpro- 
gram. 
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IHlBllI 



Att AUTOMATIC or STATIC keywoitl In an IMPLIOT stateineflt cau^s all 

chapter for information cub their fmctiou, ABcmmpl^mlngih€Bckcfwox^i$ 
also given • • = 



IMPLICIT {CNDEF1NBD j NONE} . 

tion, which is described m tie aext section 



Method of Operation — Syntax 3 



When a type isn't declared explicitly foi a' variable, the implicit data typing rules 
cause a default type of INTEGER to apply if the first letter of the variable is £j, 

The following example 

IMPLICIT UNDEFINED 

same effect as specifying the— u eommaiKilioeopicm* 
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IMPLICIT 



Rules for Use — AH Syntaxes 



Examples 



1 . IMPLICIT statements must precede all other specification statements except 
PARAMETER statements. 

2. Multiple IMPLICIT statements are allowed in a program unit. 

3. IMPLICIT statements cannot be used to change the type of a letter more than 
once inside a program unit. Since letters can be part of a range of letters as 
well as single, ranges of letters must not overlap. 

4. Lower- and upper-case alphabetic characters are not distinguished. Implicit 
type is established for both the lower- and upper-case alphabetic characters 
or range of alphabetic characters regardless of the case of l\ and /2. 

5. The -u command line option turns off all default data typing and any data 
typing explicitly specified by an IMPLICIT statement. 



IMPLICIT NONE 
IMLICIT INTEGER (F,M-P) 
IMPLICIT STATIC (F,M-P) 
IMPLICIT REAL (B,D) 
INTEGER bin, dale 

The example above declares that: 

1. All variables with names beginning with the letters F(f), M(m), N(n), O(o), 
or P(p) are of type INTEGER and are assigned the liiiii attribute. 

2. All variables with names beginning with the letter b or d are of type REAL, 
except for variables bin and dale only, which are explicitly defined as type 
INTEGER. 

The following four IMPLICIT statements are equivalent: 

IMPLICIT CHARACTER (g - k) 

IMPLICIT CHARACTER (g - K) 

IMPLICIT CHARACTER (G - k) 

IMPLICIT CHARACTER (G - K) 
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INTRINSIC 
Purpose 

Use 



Identify intrinsic function or system subroutine. 



Identifies a symbolic name as being the name of an intrinsic function or a system 
subroutine. The name of an intrinsic function can be used as an actual argument. 



( 



Syntax 



Rules for Use 



Restrictions 



Examples 



INTRINSIC func [,func] . .. 
where func is a name of intrinsic functions. 



1 . The name of every intrinsic function or system subroutine used as an actual 
argument must appear in an INTRINSIC statement in that program unit. 

2. A symbolic name may appear only once in all of the INTRINSIC statements 
of a program unit. 



1 . A name may not appear in both INTRINSIC and EXTERNAL statements in 
the same program unit 

2. A name must appear only once in all of the INTRINSIC statements of a pro- 
gram unit. 

3. The names of intrinsic functions which perform type conversion, test lexical 
relationship, or choose smallest/largest value cannot be passed as actual argu- 
ments. These functions include the conversion, maximum value, and mini- 
mum value functions listed in Appendix A. 



Consider the following statements: 

INTRINSIC ABS 

CALL ORD (ABS, ASQ, BSQ) 

and its corresponding subprogram: 

SUBROUTINE ORD (FN, A, B) 

A ** FN (B) 

RETURN 

END 

In the above example, the INTRINSIC statement allows the name of the intrinsic 
function ABS (for obtaining the absolute value) to be passed to subprogram 
ORD. 



( 



( 
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lilll 



llllllll 



llliiiiiiil 



Examples 



llllillll 



nimmm^nwmtUst^it^MilOmtmmxt 



3S&MELXST / group-nam®/ namelistlf ] /group- ' 

nama/namelist. . * 

defined in nomelkL Eacli item in nometkt mmt\^^epMatM by ^C(mm^ 



implicitly. III 

3. The following it^m^sre not ^rmim^m namettst; 

* Dummy atguments | 

* Arcayslei&e&te, character sufestrtng^ | 
tscofd^ and record fields 

mora tofor^ 



WAMELXST /input/ ifceitf, quantity /output/ item, to-! 
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PARAMETER 
Use 

Syntax 

Format 1 

iilMllliillIll 



c 



Gives a constant a symbolic name. 



PARAMETER (p=e [,p=e] 



^^^^^^^^^^^^^Hi 



expression, or the symbolic name of a constant 



Method of Operation 



Rules for Use 



The value of the constant expression e is given to the symbolic name p. The 
statement defines/? as the symbolic name of the constant. The value of the con- 
stant is the value of the expression e after conversion to the type of the name p. 
The conversion, if any, follows the rules for assignment statements. 

Format 1, which has bounding parentheses, causes the symbolic name to be 
typed either of the following ways: 

• according to a previous explicit type statement or 

• if no explicit type statement exists, the name is typed according 
to its initial letter and the implicit rules in effect. See the de- 
scription of the IMPLICIT statement in this chapter for details, 

the nsme arid the implicit mk$ do no$ affect the d»ta lype, ^^^^^^B 

A symbolic name in a PARAMETER statement has the scope of the program 
unit in which it was declared. 



1. If p is of type integer, real, double precision, or complex, then e must be an 
arithmetic constant expression. 
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PARAMETER 

2. If p is of type character or logical, then e must be a character constant expres- 
sion or a logical constant expression, respectively. 

3. If a named constant is used in the constant expression e, it must be previously 
defined in the same PARAMETER or a preceding PARAMETER statement 
in the same program unit. 

4. A symbolic name of a constant must be defined only once in a PARAME- 
TER statement within a program unit. 

5. The data type of a named constant must be specified by a type statement or 
IMPLICIT statement prior to its first appearance in a PARAMETER state- 
ment, if a default implied type is not to be assumed for that symbolic name. 

6. Character symbolic named constants must be specified as character type in a 
CHARACTER statement, or the first letter of the name must appear in an 
IMPLICIT statement with the type CHARACTER. Specification must be 
made prior to the definition of the name in the PARAMETER statement. 

7. Once a symbolic name is defined, it can be used as a primary in any subse- 
quent expressions or DATA statements in that program unit. 

with constant operands cm be specified in a logical expression. 

metic expressions. 

12. Symbolic constants can appear in a FORMAT statement only within the con- 
text of a geneMexpre^ion bounded by angled btacfcete:<x 

13. Symbolic comtmmcmnot appear as part of another constant except when 
fonnlng thereat or imaginary part of a complex constant 
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PARAMETER 

Restrictions 



Examples 



( 



A constant and a symbolic name for a constant are generally not interchangeable. 
For instance, a symbolic name of an integer constant cannot be used as a length 
specification in a CHARACTER type statement without enclosing parentheses. 
For instance, CHARACTER*® is valid, but CHARACTER*! is not. 



oompXe^ o 



^^^^^£^^^^ 



REAL X 
PARAMETER (X 



1) 



The example above declares that: 

1 is converted to 1E0, making X the name of a REAL constant. 

INTEGER I 

PARAMETER (I = 3.14) 

3.14 is converted to 3, making I the name of an INTEGER constant 

In the following example, interest _rate is assigned the constant value of .087769. 

REAL* 4 inter est_rate 

PARAMETER (interest rate - .087769) 



( 



( 
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liill 



Syntax 



lillllliilill 



Restrictions 



lliliiiil 



Establishes pairs of variables and pointers, whej^eacto^ltitercoiitaMthead- 
dtm of its paired variable. . 



POINTER (pl,vl) tp2sv2) » + *} 
poiot^r-basedvan^Ie is defined. 



L OnceyouM¥e defined a variable as ba^ed on apointer, you must assist ari 

vide an address of a variable of the appropriate type and size, . 
no storage h allocated wtien a pointer-based variable is defined. 



previous in main programs, In subroutines and ^jnetlo^ the same nales 
apply for |K)iitteiMbased variables as feodum 

routine or function is called, 



Part II: FORTRAN Language Reference 



4-33 



Chapter 4 

IpoiNter 

Example 



( 



pointer (ptr^v) <ptr 2/ v2) 
character a*12, vn2 r s*l, v2*12 

data a/ ? atoc4e%Mjkl^/ 
ptr « loc(a) 
ptr ~ ptr +4 
ptr2 » malice {12} 

^^^^^^^^^^^^^^^^^^^^^^^^^ 
z**v{l:l}| 
print * f z . 

^ ~ v2{S;5) • 

pri&t *> z j 

call £ree{ptr2} 



c 



( 
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Use 



Syntax 



Rules of Use 



PROGRAM 



Defines a symbolic name for the main program. 



PROGRAM pgm 



where pgm is a symbolic name of the main program, which must not be the name 
of an external procedure, block data subprogram, or common block, or a local 
name in the same program unit. 



1 . The PROGRAM statement is optional. However, it must be the first state- 
ment in the main program when used. 

2. The symbolic name must be unique for that executable program. It must not 
be the name of any entity within the main program or any subprogram, entry, 
or common block. 
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1111111 



Creates accord in the format specified b$ a pmvto«sly declared STROCTURB 

' nary type dMaratloii. 



Syntax 






Method of Operation 



Examples 



die related structure declaration * lllllll 



smcrcTDREyveather/ | 

integer jaofcth, d&y r year 
cliaraoter*40 clouds 

1I1IB 

RECORD /weather/ latent 7 pa^tUOOO) 



$&$t(fi) *rain£ all « latest .rainfall '^^^^^^^^^M 
staictuie format 



c 



( 
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Use 



Syntax 



SAVE 



Retains the values of variables and arrays after execution of a RETURN or END 
statement in a subprogram. This allows those entities to remain defined for sub- 
sequent invocations of the subprogram. 



SAVE [a[,a] . . .] 
where a is one of the following: 
• A variable or array name 

® A common block name, preceded and followed by 
slashes 



Method of Operation 



The SAVE statement prevents named variables, arrays, and common blocks from 
becoming undefined after the execution of a RETURN or END statement in a 
subprogram. Normally, all variables and arrays become undefined upon exit 
from a subprogram, except in the following cases: 

• Entities specified by a SAVE statement 

• Entities in blank common 

• Entities in a named common that is declared in the subprogram 
and in a calling program unit in SAVE statements 

All variables and arrays declared in the main program maintain their definition 
status throughout the execution of the program. If a local variable or array is not 
in a common block and is specified in a SAVE statement, it has the same value 
when the next reference is made to the subprogram. 

All common blocks are treated as if they had been named in a SAVE statement. 
All data in any common block is retained on exit from a subprogram. 



Part II: FORTRAN Language Reference 4-37 



Chapter 4 

SAVE 
Rules of Use 



Restrictions 



Examples 



( 



1 . A SAVE statement without a list is treated as though all allowable entities 
from that program unit were specified on the list. 

2. A SAVE statement may be placed in the main program but it has no effect. 

3. A given symbolic name may appear in only one SAVE statement in a pro- 
gram unit. 



Procedure names and dummy arguments cannot appear in a SAVE statement. 
The names of individual entries in a common block are not permitted in a SAVE 
statement. 



SAVE L, V 
SAVE /DBASE/ 



( 



( 
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STRUCTURE 



lllll 



Syntax (G&mmt) 



JMims a record structure that cmt^mfcmm^bymi^otmomW&CORiy^Xc- 



Structure {f$tr#ctvtr®-rt$me/l [fi & l<$-nam&$] 
tfl&ld-d&flnltion] 

ESD STRCJCTORE 



where: 






RECORD $tatemenu Substructures can be established \ 
within &$tw(Mm by means of either^ nested STRUC- 
TURE declaration or ^RECORB statement 

For substructure declarations oify. One or more names 
having the structure of the substructure being defined. 

can be one or more of the following: 

* typed data declarations, which may optionally 
jtoclude one or more data initialization values, 

* substructure declarations (defined by either RE- ' 
CORD statements or M*ses|uen£ STRUCTURE 
statements) 

* UNI0H declarations, which are mapped fields 
defined by a block o£ statements, The syntax of . 
a UNION declaration is described on the next 

* PARAMETER statements, which do not affect 
the form of the structure* 
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STRUCTURE 



HHHHH^HHHH 



1111 

I field-definition] {field- definition] ., P 
|i|||i||||J 



Method of Operation 
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STRUCTURE 



Examples (General) 



smjcx&m /wttor:/ 




• integer montb,- day, y«« 




WS^^^m^X^^^^M^Sitti^^SB 




^^^^^^^^^^^^^^^^^^^^^^^^B 












II 

ll 

II 



H ¥^^ %i R^ !i ^¥ {¥ ^ l ^i t ! t ! | i > ! 1 ^ 1 



II 



iiiiiili 
Siiii 

Ipiill 



lllllliiiiil 



lllfll 









WN»W ^ffl» |i ^. |i Wy < ;|i< 









■HUH 
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llllllllilllll 



program writ eDate 




structure /st&rt/ 






anion 






map 






character* 2 


month • • 




character* 2 


da ^ 




f character*2 


^^^^^B 




end iftap 






• raap 






character* 6 


|§|l||g|||||||||||| 




end map 






end union 






end atria ct^re 






record /start/ sdate 




sdat e, month * '0S f 






&date«day. « '10' 






$date,year « '89* 






• write <*, 10) sdate 


„date 




10 format (A) 






stop 






-end 







( 






( 
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1111 



Syntax 



VOLATILE 



Prevents the compiler from optimizing specified variables arrays* aMcommoa 
blocks of data. , 



VOLMILE volatilB-xtems 

separated by a comma. 

For more infomata^ 

(JMieaitd the 177(1) manual page in the User's Reference Manual. 
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Data Statements 



Overview 



Assignment statements assign values to variables and array elements. Five types 
of assignment statements are included in FORTRAN: 

• Arithmetic assignment 

• Logical assignment 

• Character assignment 

• Statement label assignment 

DATA statements, implied DO lists in DATA statements, and BLOCK DATA 
subprograms are closely related and can be used to initialize variables and array 
elements. BLOCK DATA subprograms are described in detail in Chapter 4. 



Arithmetic Assignment Statements 



An arithmetic assignment statement assigns the value of an arithmetic expression 
to a variable or array element of type INTEGER, REAL, DOUBLE PRECISION, 
COMPLEX, or DOUBLE COMPLEX. The form of an arithmetic statement is: 

v = e 

where: 

v is a name of an integer, real, double precision, complex, or double complex 
type variable or array element. 

e is an arithmetic expression. 

When an arithmetic assignment statement is executed, the expression e is evalu- 
ated and the value obtained replaces the value of the entity to the left of the equal 
sign. 
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Both v and e need not be of the same type; the value of the expression is con- 
verted to the type of the variable or array element specified. The type conversion 
rules are; 



V Declaration 


Function Equivalent 


INTEGER 


INT(e) 


REAL 


REAL(e) 


DOUBLE PRECISION 


PBLE(e) 


COMPLEX 


CMPLX(e) 


DOUBLE COMPLEX 


DCMPLX(e) 



Table 5.1 gives the detailed conversion rules for arithmetic assignment state- 
ments. 

The functions in the second column of the table are intrinsic functions described 
in Chapter 10 and Appendix A. 

The following are examples of arithmetic assignment statements: 



1 = 4 
J = 7 
A = I*J+1 



Assign the value 4 to I 
Assign the value 7 to J 

Assign the value 29 to A 



( 



( 
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Variable 
or Array 
Element 

(v) 


Expression(e) 


INTEGER or 
LOGICAL 


REAL 


REAL*8 


INTEGER or 
LOGICAL 


Assign e to v 


Truncate e to 
integer and 
assign to v 


Truncate e to 
integer and 
assign to v 


REAL 


Assign franction 
(.0) to e and 
assign to v 


Assign e to v 


Assign high order 
portion of e to 
v; low order 
order portion of 
e is rounded 


REAL*8 


Append fraction 
(.0) to e and 
assign to v 


Assign e to high 
order portion 
of v; low order 
portion of v is 


Assign e to v 


■i^mm$§ffl$ 


As above 


As above 


As above 


COMPLEX 


Append fraction 
(.0) to e and 
assign to real 
part of v; 
imaginary part of 
v is 0.0 


Assign e to real 
part of v; 
imaginary part of 
v is 0.0 


Assign high order 
portion of e to 
real part of v; 
low order portion 
of e is rounded; 
imaginary part of 
v isUO. 


COMPLEX*16 


Ajppertd fraction 
(.0) to e and assign 
to v; imaginary part 
ofvi&ftO 


Assign e to high 
order portion of 
reaijjartofv; 
imaginary part of 


Assign etd real 
nary part is 0,0 



Table 5.1 (Part 1 of 2). Conversion Rules for Assignment Statements 
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Variable 








or Array 




Expression(e) 




Element 

(v) 








REAL*16 • 


COMPLEX 


I^^^H^^^^^^I 


INTEGER or 


Truncate e to 


Truncate real part 


v.Tri^ca'MrMpartV{ ; •:/•'•::'.' . 


LOGICAL 


integer and 


of e to integer and 


ofe to integer and 




■fcSw&Jg&tov, 


assign to v; imagi- 


: 4^g& to v; iraagi~ 






nary part of e is 


nary part of £fe 






not used. 


not used, • 


REAL 


Assign high order 
portion ore to 


Assign real part 


Assign high order 
portion oftbe real 




of e to v; imagi- 




V& v; low order :3 'fffl'& 


nary part of e is 


part of e to yj low 




portion of . 


not used. 


:'.'. ;£ order portion of the : w ; : < : :: ■ ■ : ; : : ;;;;• ;:; 




§ || rounded. 




real part; of e is 
rotinded; imaginary 








part ofe is not used. 


REAL*8 


As above. 


Assign real part of 
e to nigh order por- 
tion or v; low order 


A&%n real part of e 






tov^imagtoarypart 






of e tt'nouiseci* 






portion of v is 0; 








imaginary part of 








e is not used. 




REAL*W 


^§m^mmm§Sm8 


As above. 


As above. 


COMPLEX 


Assijp* high order 


Assign e to v. 


Assign high order por- 




•xw:«/.-H«rf:/.;:::^ 




tion of real part ofe 




real part of v; 
low order portion 
of e is rounded; 




torsaipartofvjlow 
order portion of real 




imaginary part of 

v is §M 




Assign high order por- 






tion of imaginary pari 








ofe to imaginary part 








of yHow order portion 








of Imaginary part of e 
is rounded. 


COMPLEX*!* 


As above. 


Assign real part of 

e to high order por- 
tion o(v: low ortter 


Assign e to v. 












portion of real part 








v$0* As^imfr" 








Kara part of s to 
high order portion of 








imag&arypartofY; 








low order portion of 








imaginary part i&CL 





Table 5.1 (Part 2 of 2). Conversion Rules for Assignment Statements 



( 
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Logical Assignment Statements 



The logical assignment statement is used to assign the value of a logical expres- 
sion to a logical variable or array element. It takes the form: 

v = e 

where v is a name of a logical variable or logical array element and e is a logical 
expression. 

When a logical assignment statement is executed, the value of the logical expres- 
sion e is evaluated and replaces the value of the logical entity to the left of the 
equal sign. The value of the logical expression is either true or false. 



Character Assignment 



The character assignment statement is used to assign the value of a character ex- 
pression to a character variable, array element, or substring. The form of a char- 
acter assignment statement is: 

v = e 

where v is a name of a character variable, array element, or substring and e is a 
character expression. 

During the execution of a character string assignment statement, the character 
expression is evaluated and the resultant value replaces the value of the character 
entity to the left of the equal sign. None of the character positions being defined 
in v may be referenced in the evaluation of the expression e. 

The entity v and character expression e may have different lengths. If the length 
of v is greater than the length of e, then the value of e is extended on the right 
with blank characters to the length of v. If the length of e is greater than the 
length of v, then the value of e is truncated on the right to the length of v. 

The following examples show character assignment: 

CHARACTER U*5, V*5, W*7 
U = 'HELLO' 
V = 'THERE' 
W(6:7) = V(4:5) 

If assignment is made to a character substring, only the specified character posi- 
tions are defined. The definition status of character positions not specified by the 
substring remain unchanged. 



PART II: FORTRAN Language Reference 5-5 



Chapters 



Aggregate Assignment 



declared with, the game structure, Ttiefonn^f^ aggregate a^ignm^ni; state* 



mmm 



where vatid£ ate aggregate references declared with the same strucmre. Seethe 
more information, 



Statement Label Assignment 



The ASSIGN statement causes a statement label to be assigned to an integer vari- 
able and is used in conjunction with an assigned GOTO statement or an input/ 
output statement. The form of a statement label assignment statement is: 

ASSIGN s TO e 

where: 

s is a statement label of an executable statement or a FORMAT statement that 
appears in the same program unit as the ASSIGN statement. 

e is an integer variable name. 

Statement label assignment by the ASSIGN statement is the only way of defining 
a variable with a statement label value. A variable defined with a statement label 
value may be used only in an assigned GOTO statement or as a format identifier 
in an input/output statement. The variable thus defined must not be referenced in 
any other way until it has been reassigned with an arithmetic value. 

An integer variable that has been assigned a statement label value may be rede- 
fined with the same statement label, a different statement label, or as an arithme- 
tic integer variable. 

Examples using the ASSIGN statement are shown below. 
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Assignment and Data Statements 



Example 1: 


ASSIGN 100 TO KBRNCH 


GO TO KBRNCH 


Example 2: 


ASSIGN 999 TO IFMT 


999 FORMAT (F10.5) 


READ (*, IFMT) X 


WRITE (*, FMT = IFMT) Z 



Data Initialization 



Variables, arrays, array elements, and substrings can be initially defined using the 
DATA statement or an implied-DO list in a DATA statement. The BLOCK 
DATA subprogram is a means of initializing variables and arrays in named com- 
mon blocks and is discussed in Chapter 4. 

Entities not initially defined or associated with an initialized entity are undefined 
at the beginning of execution of a program. Uninitialized entities must be de- 
fined before they can be referenced in the program. 
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Smpiied-DO 
Use 

Syntax 



Initializes or assigns initial values to elements of an array. 

(dlist, i = el, e2 [,e3] ) 

where: 

dlist is a list of array element names and implied-DO lists. 

i is a name of an integer variable, referred to as the implied-DO variable. 

It is used as a control variable for the iteration count. 

el is an integer constant expression specifying an initial value. 

e2 is an integer constant expression specifying a limit value. 

e3 is an integer constant expression specifying an increment value. 



( 



el, e2, and e3 are as defined in DO statements. 

Method of Operation 



Rules 



An iteration count and the values of the implied-DO variable are established 
from el, e2, and e3 exactly as for a DCMoop, except that the iteration count must 
be positive. 

When an implied-DO list appears in a DATA statement, the dlist items are speci- 
fied once for each iteration of the implied-DO list with the appropriate substitu- 
tion of values for any occurrence of the implied-DO variable. The appearance of 
an implied-DO variable in an implied-DO has no effect on the definition status 
of that variable name elsewhere in the program unit. For an example of a im- 
plied-DO list, see the DATA section in Chapter 4. 

The range of an implied-DO list is dlist. 



The integer constant expressions used for el, e2, and e3 may contain implied- 
DO variables of other implied-DO lists. 

Any subscript expression in the list dlist must be an integer constant expression. 
The integer constant expression may contain implied-DO variables of implied- 
DO lists that have the subscript expression within their range. 



( 



( 
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Control statements affect the normal sequence of execution in a program unit. 
They are described in alphabetical order in this chapter and summarized below. 



Command 


Purpose 


CALL 


References a subroutine subprogram in a calling program 
unit. 


CONTINUE 


Has no operational function; usually serves as the terminal 
statement of a DO-loop. 


DO 


Specifies a controlled loop, called a DO-loop, and 
establishes the control variable, indexing parameters, and 
range of the loop. 


HHBBHBI 




ELSE 


Used in conjunction with the block IF or ELSE 
IF statements. 


ELSE IF 


Used optionally with the block IF statement. 


END 


Indicates the end of a program unit. 


BBBBBB 




END IF 


Has no operational function; serves as a point of reference 
like a CONTINUE statement in a DO-loop. 


GO TO 
(Unconditional) 


Transfers program control to the statement 
identified by the statement label. 



Part II: FORTRAN Language Reference 



6-1 



Chapter 6 



Command 


Purpose 


GO TO 
(Computed) 


Transfers control to one of several statements 

specified, depending on the value of an integer expression. 


GO TO 
(Symbolic Name) 


Used in conjunction with an ASSIGN statement 

to transfer control to the statement whose label was last 

assigned to a variable by an ASSIGN statement. 


IF 

(Arithmetic) 


Allows conditional branching. 


IF 

(Branch Logical) 


Allows conditional statement execution. 


IF 

(Test Conditional) 


Allows conditional execution of blocks of 
code, The block IF can contain ELSE and ELSE 
IF statements for further conditional execution control. 
The block IF ends with the END IF. 


PAUSE 


Suspends an executing program. 


RETURN 


Returns control to the referencing program unit. It may 
appear only in a function or subroutine subprogram. 


STOP 


Allows termination of an executing program. 



( 



( 



( 
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Use 



Syntax 



CALL 



References a subroutine subprogram in a calling program unit. 

CALL sub[ ( [a[,a] . . .] ) ] 

where: 

sub the symbolic name of the subroutine. 

a an actual argument: an expression, array name, array elements, 

or an alternate return specifier of the form *s where s is a statement label, 

iiiiililli 



Method of Operation 



Rules of Use 



Execution of a CALL statement causes an evaluation of the actual arguments, 
association of the actual arguments with the corresponding dummy arguments, 
and execution of the statements in the subroutine. Return of control from the ref- 
erenced subroutine completes the execution of the CALL statement. 



1 . The actual arguments a form an argument list and must agree in order, num- 
ber, and type with the corresponding dummy arguments in the referenced 
subroutine. 

2. A subroutine that has been defined without an argument may be referenced 
by a CALL statement of the following forms: 

CALL sub 
CALLsubQ 

3. If a dummy procedure name is specified as a dummy argument in the refer- 
enced subroutine, then the actual argument must be an external procedure 
name, a dummy procedure name, or one of the allowed specific intrinsic 
names. An intrinsic name or an external procedure name used as an actual 
argument must appear in an INTRINSIC or EXTERNAL statement, respec- 
tively. 
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CALL 



Example 



4. If an asterisk is specified as a dummy argument, an alternate return specifier 
must be supplied in the corresponding position in the argument list of the 
CALL statement.. 

5. 11 a Hollerith constant is med as an actual argument in a CALL statement 

6. A subroutine can call itself directly or indirectly (recursion). 

W®^* Recursion is an extension to FORTRAN 77, FORTRAN" 77 does 
not permit & mbwutimt® reference itself. 



In the following example, the main routine calls pageread passing the parameters 
Iwordcount, page, and nswitch. After execution of pageread, control returns to 
the main program, which stops. 

program Makelndex 

characterise page 

dimension page (100) 

nswitch = 

111 Iwordcount = inwordsl*2 
* 

call pageread (Iwordcount, page, nswitch) 
stop 



( 



( 



subroutine pageread (Iwordcount , page, nswitch) 
character*50 page 
dimension page (100) 
icount = 100 



end 



( 
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CONTINUE 

Use 

Has no operational function; usually serves as the terminal statement of a DO- 
loop. 



Syntax 

CONTINUE 

Method of Operation 



When a CONTINUE statement that closes a DO-loop is reached, control transfer 
depends on the control variable in the DO-loop. In this case, control will either 
go back to the start of the DO-loop, or flow through to the statement following 
the CONTINUE statement. (See the subhead Loop control processing under the 
DO statement for full information about control of DO-loops.) 

Example 

In the following example, the DO loop is executed 100 times, and then the pro- 
gram branches to statement 50 (not shown). 

iwordcount = 100 

do 25, i= 1, Iwordcount 

read (2, 20 , end=45) word 

20 format (A50) 

25 Continue 
* 

goto 50 
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DO 



Use 



Syntax 



Specifies a controlled loop, called a DO-loop, and establishes the control vari- 
able, indexing parameters, and range of the loop. 



DO [s] [,]i = el, e2 [, e3] 

where: 

s is a statement label of the last executable statement in the range of the DO- 
loop. This statement is called the terminal statement of the DO-loop. 

$ can optionally ke omitted If £ is omitted, the loop must be tenninated with 
m END DO statement Upon completion of the loop^xeeution resumes 
with the first statement Mowing the ENDDO^tement 

i is a name of an integer, real, or double precision variable, called the DO vari- 
able. 

el is an integer, real, or double precision expression that represents the initial 
value given to the DO variable. 

e2 is an integer, real, or double precision expression that represents the limit 
value for the DO variable. 

e3 is an integer, real, or double precision expression that represents the incre- 
ment value for the DO variable. 



Method! of Operation 



The range of a DO-loop consists of all executable statements following the DO 
statement, up to and including the terminal statement of the DO-loop. In a DO- 
loop, the executable statements that appear in the DO-loop range are executed a 
number of times as determined by the control parameters specified in the DO 
statement. The execution of a DO-loop involves the following steps: 

1. Activating the DO-loop. The DO-loop is activated when the DO statement 
is executed. The initial parameter ml, the terminal parameter m2, and the 
incremental parameter m3 are established by evaluating the expressions el, 
e2, and e3, respectively. The expressions are converted to the type of the DO 
variable when the data types are not the same. The DO variable becomes 
defined with the value of the initial parameter ml. The increment m3 cannot 
have a value of zero and defaults to the value 1 if e3 is omitted. 



( 



c 



( 
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DO 

2. Computing the iteration count. The iteration count is established from the 
following expression: 

MAX( INT( (ml -ml+ m3)Im3\ 0) 

The iteration count is zero in the following cases: 

ml > ml and m3>0 
ml < m2 and m3 

If the initial value (ml) of the DO exceeds the limit value Qn2), as in: 

DO 10 I = 2,1 

The BO loop will not be executed rata the — oaeirtp compiler option i$ in 

3. Loop control processing. This step determines if further execution of the 
range of the DO-loop is required. Loop processing begins by testing the it- 
eration count. If the iteration count is positive, the first statement in the 
range of the DO-loop is executed. Normal execution proceeds until the ter- 
minal statement is processed. This constitutes one iteration of the loop. In- 
crementing is then required, unless execution of the terminal statement re- 
sults in a transfer of control. 

If the iteration count is zero, the DO-loop becomes inactive. Execution con- 
tinues with the first executable statement following the terminal statement of 
the DO-loop. If several DO loops share the same terminal statement, incre- 
mental processing is continued for the immediately containing DO-loop. 

4. Incremental processing. The value of the DO variable is incremented by 
the value of the incremental parameter m3. The iteration count is then de- 
creased by one and execution continues with loop control processing as de- 
scribed above. 
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DO 



Rules of Use 



Restrictions 



A DO-loop is either active or inactive. A DO-loop is initially activated 
when its DO statement is executed. Once active, a DO-loop becomes inac- 
tive when one of the following occurs: 

• The iteration count is zero. 

• A RETURN statement within the DO-loop range is executed. 

• Control is transferred to a statement outside the range of the 
DO-loop but in the same program unit as the DO-loop. 

• A STOP statement is executed or the program is abnormally ter- 
minated. 

Reference to a subprogram from within the range of the DO-loop does not 
make the DO-loop inactive except when control is returned to a statement 
outside the range of the DO-loop. 

When a DO-loop becomes inactive, the DO-variable of the DO-loop retains 
its last defined value. 



1 . DO-loops can be nested but must not overlap. 

2. If a DO statement appears within an IF-block, ELSE IF-block, or ELSE- 
block, the range of the DO-loop must be contained within that block. 

3. If a block IF statement appears within the range of a DO-loop, the corre- 
sponding END IF statement must appear within the range of the DO-loop. 

4. The same statement may serve as the terminal statement in two or more 
nested DO-loops. 



1 . The following statements must not be used for the statement labeled s in the 
DO-loop: 



( 



Unconditional GO TO 
Assigned GO TO 
Arithmetic IF 
Block IF 
ELSE IF 
ELSE 



END IF 

RETURN 

STOP 

END 

Another DO statement 



( 
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2. If the statement labeled s is a logical IF statement, then it can contain any 
executable statement in its statement body, except for: 

DO statement END IF 

Block IF END 

ELSE IF Another logical IF statement 

ELSE 

3. Except by the incremental process covered above, the DO variable must not 
be redefined during execution of the range of the DO~loop. 

4. A program must not transfer control into the range of a DO-loop from out- 
side the DO-loop. 



Example 



DO 10, i = 1, 10 
D 
D 
D 
10 CONTINUE 

d 

In the above example, the statements (noted with a D) following the DO state- 
ment are executed sequentially 10 times, then execution resumes at the statement 
(d) following CONTINUE. 
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DO WHILE 



( 



lilll 



llilllll 






■■■^■B 



^^^^^^^^^^H^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^B 



c 
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ELSE 

Use 

Used in conjunction with the block IF or ELSE IF statements. 
Syntax 

ELSE 

Method of Operation 

Two terms need to be defined to explain the ELSE statement: 

ELSE-block (defined below) and IF-level (defined on the block IF statement 
page). 

An ELSE-block is the code that is executed when an an ELSE statement is 
reached. An ELSE-block begins after the ELSE statement and ends before the 
END IF statement at the same IF-level as the ELSE statement. As well as con- 
taining simple, executable statements, an ELSE-block may be empty (contain no 
statements) or may contain embedded block IF statements. Don't confuse the 
ELSE-block and the ELSE statement. 

An ELSE statement is executed when the logical expressions in the correspond- 
ing block IF and ELSE IF statements evaluate to false. An ELSE statement has 
no logical expression to evaluate; the ELSE-block is always executed if the 
ELSE statement is reached. After the last statement in the ELSE-block is exe- 
cuted (and provided it does not transfer control) control flows to the END IF 
statement that closes that whole IF-levcl. 



Rules of Use 



1. There cannot be any ELSE IF or ELSE statements inside an ELSE-block at 
the same IF-level. 

2. The IF-level of the ELSE statement must be greater than zero (there must be 
a preceding corresponding block-IF statement). 
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ELSE 

Restrictions 



Example 



( 



1 . The ELSE-block can be entered only by executing the ELSE statement. No 
transfer of control that jumps from outside the ELSE-block into the BLSE- 
block is allowed. 

2. If an ELSE statement has a statement label, the label cannot be referenced by 
any statement. 



IF (R) THEN 

■A-0 

ELSE IF (Q) THEN 

A - X 
ELSE 

A - -1 
END IF 



( 



( 
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ELSE IF 

Use 

Used optionally with the block IF statement 

Syntax 

ELSE IF (e) THEN 

where e is a logical expression. 
Method of Operation 

Two terms need to be defined to explain the ELSE IF statement: ELSE IF-block 
(defined below) and IF-level (defined on the block IF statement page). 

An ELSE IF-block is the code that is executed when the logical expression of an 
ELSE IF statement evaluates to true. An ELSE IF-block begins after the ELSE 
IF statement and ends before the next ELSE IF, ELSE or END IF statement at the 
same IF-level as the ELSE IF statement As well as containing simple, executa- 
ble statements, an ELSE IF-block may be empty (contain no statements) or may 
contain embedded block IF statements. Don't confuse the ELSE IF-block and 
the ELSE IF statement. 

When an ELSE IF statement is reached, the logical expression e is evaluated. If 
e evaluates to true, execution continues with the first statement in the ELSE IF- 
block. If the ELSE IF-block is empty, control is passed to the next END IF 
statement that has the same IF-level as the ELSE IF statement. If e evaluates to 
false, program control is transferred to the next ELSE IF, ELSE, or END IF state- 
ment that has the same IF-level as the ELSE IF statement. 

After the last statement of the ELSE IF-block is executed (and provided it does 
not transfer control), control is automatically transferred to the next END IF 
statement at the same IF-level as the ELSE IF statement. 
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ELSE IF 

Rules of Use 
Restrictions 



Example 



The IF-level of the ELSE IF statement must be greater than zero (there must be a 
preceding corresponding block-DF statement). 



1. Control cannot be transferred into an ELSE IF-block from outside the ELSE 
DF-block. 

2. No statement is allowed to reference the statement label (if any) of an ELSE 
IF statement. The only way to reach an ELSE IF statement is through its 
block IF statement. 



IF(R) THEN 

A = 
ELSE IF (Q) THEN 

A - 1 
END IF 



( 



( 
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END 

Use 



Indicates the end of a program unit. 
Syntax 

END 



Method of Operation 



Rules of Use 



An END statement in a main program has the same effect as a STOP statement; it 
terminates an executing program. 

An END statement in a function or subroutine subprogram has the effect of a RE- 
TURN statement; it returns control to the referencing program unit. 



1 . An END statement must be the last statement in every program unit. 

2. An END statement must not be continued. No other statements should have 
END as the first three non-blank characters. 
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END DO 

Use 

Defines the end of an indexed DO loop or a DO WHILE loop. 
Syntax 

END DO 



( 



( 
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Use 



Syntax 



Rules of Use 



END IF 



Has no operational function; serves as a point of reference like a CONTINUE 
statement in a DO-loop. 



END IF 



1 . Every block IF statement requires an END IF statement to close that IF- 
level. (IF-level is described under the block IF statement.) 

2. The IF-level of an END IF statement must be greater than zero (there must 
be a preceding corresponding block-IF statement). 

Example 

See the example given with the description of the ELSE statement. 
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GO TO (Unconditional) 



Use 



Syntax 



Example 



Transfers program control to the statement identified by the statement label. 



GO TO s 



where s is a statement label of an executable statement appearing in the same 
program unit as the unconditional GO TO. 



GO TO 358 

Program control is transferred to statement 358 md normal sequential execution 
continues from there. 



( 



( 



( 
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GO TO (Computed) 



Use 



Syntax 



Transfers control to one of several statements specified, depending on the value 
of an integer expression. 



GO TO (s[,s] . ..) [,]i 

where s is a statement number of an executable statement appearing in 
the sjcume^^ 

(fr&ctiontilpQr&bm am discarded) befogs being used to tadex into the next 
set of labels. 



Method of Operation 



Rules of Use 



Example 



A computed GO TO statement causes evaluation of the integer expression, fol- 
lowed by transfer of control. 

In the computed GO TO statement with the following form: 

GO TO (si, s2, ... ,sn) ,i 

If i<l or i>n 9 the program control continues with the next statement following the 
computed GO TO statement; otherwise, program control is passed to the state- 
ment labeled si. Thus, if the value of the integer expression is 1, control of the 
program is transferred to the statement numbered si in the list; if the value of the 
expression is 2, control is passed to the statement numbered s2 in the list, and so 
on. 



The same statement label may appear more than once in the same computed GO 
TO statement. 



KVAL = 4 

GO TO(100,200,300,300,350,9000)KVAL + 1 

Program control is transferred to statement 350 (KVAL +1). 
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GO TO (Symbolic Name) 



Use 



Syntax 



Used in conjunction with an ASSIGN statement to transfer control to the state- 
ment whose label was last assigned to a variable by an ASSIGN statement. 



GO TO i [[,] (s [,s] ...)] 

where i is an integer variable name and s is a statement label of an executable 
statement appearing in the same program unit as the assigned GO TO statement. 



Method of Operation 



Rules of Use 



Example 



The variable i is defined with a statement label using the ASSIGN statement in 
the same program unit as the assigned GO TO statement. When an assigned GO 
TO is executed, control is passed to the statement identified by that statement 
label Normal execution then proceeds from that point. 



1. The same statement label may appear more than once in the same assigned 
GO TO statement. 

2. If the list in parentheses is present, the statement label assigned to i must be 
one of those in the list. 



GO TO KJUMP, (100,500,72530) 

The value of KJUMP must be one of the statement label values; 100, 500, or 
72530. 



( 



( 



( 
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IF (Arithmetic) 



Use 



Syntax 



Allows conditional branching. 

IF (e) si, s2, s3 
where: 

e is an arithmetic expression of type integer, real, or double precision, but not 
complex. 

sl,s2, s3 

are statement numbers of executable statements in the same program unit as 
the arithmetic IF statement. 



Method of Operation 



Rules of Use 



Example 



In the execution of an arithmetic IF statement, the value of the arithmetic expres- 
sion e is evaluated. Control is then transferred to the statement numbered si, s2 f 
or s3 if the value of the expression is less than zero, equal to zero, or greater than 
zero, respectively. Normal program execution proceeds from that point. 



The same statement number may be used more than once in the same arithmetic 
IF statement. 



IF (A + B*(. 5) )500, 1000,1500 

• If the expression evaluates to be negative, control jumps to state- 
ment 500. 

• If the expression evaluates to be zero, control jumps to statement 
1000. 

• If the expression evaluates to positive, control jumps to state- 
ment 1500. 
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IF (Branch Logical) 

Use 

Allows conditional statement execution. 

Syntax 

IF (e) st 



( 



where e is a logical expression and st is any executable statement except DO, 
block IF, ELSE IF, ELSE, END IF, END, or another logical IF statement. 



Method of Operation 



Example 



Execution of a logical IF statement causes boolean evaluation of the logical ex- 
pression. If the value of the logical expression is true, statement st is executed. 
If the value of the expression is false, execution continues with the next sequen- 
tial statement following the logical IF statement. 

Note that a function reference in the expression is allowed, but may affect entities 
in the statement st. 



IF (A .LE. B) A = 0.0 

IF (M .LT. TOC) GOTO 1000 

IF (J) CALL OUTSIDE (R,Z,F) i 



l 
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IF (Test Conditional) 



Use 



Allows conditional execution of blocks of code. The block IF can contain ELSE 
and ELSE IF statements for further conditional execution control. The block IF 
ends with the END IF statement. 



Syntax 



IF (e) THEN 

where e is a logical expression. 

Method of Operation 

Two terms need to be defined to explain the block IF statement: 
IF-block and IF-level. 

An IF-block is the code that is executed when the logical expression of a block 
IF statement evaluates to true. An IF-block begins after the block IF statement 
and ends before the ELSE IF, ELSE, or END IF statement that corresponds to the 
block IF statement. As well as containing simple, executable statements, an IF- 
block may be empty (contain no statements) or may contain embedded block IF 
statements. Don't confuse IF-block with block IF. 

Block IF statements and ELSE IF statements may be embedded, which can make 
figuring which statements are in which conditional blocks very confusing. The 
IF-level of a statement determines which statements belong to which IF-THEN- 
ELSE block. Fortunately, the IF-level of a statement can be found systemati- 
cally. The IF-level of a statement s is: 

(nl - n2) 

where (starting count at the beginning of the program unit): inl is the number of 
block IF statements up to and including s, and n2 is the number of END IF state- 
ments up to but not including s. 

The IF-level of every block IF, ELSE IF, ELSE, and END IF statement must be 
positive because those statements must be part of a block IF statement. The IF- 
level of the END statement of the program unit must be zero because all block IF 
statements must be properly closed. The IF-level of all other statements must 
either be zero (if they are outside all IF-blocks) or positive (if they are inside an 
IF-block). 
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IF (Test Conditional) 

When a block IF statement is reached, the logical expression e is evaluated. If e 
evaluates to true, execution continues with the first statement in the DF-block. If 
the IF-block is empty, control is passed to the next END IF statement that has the 
same IF-level as the block IF statement If € evaluates to false, program control 
is transferred to the next ELSE IF, ELSE, or END IF statement that has the same 
IF-level as the block IF statement. 

After the last statement of the IF-block is executed (and provided it does not 
transfer control), control is automatically transferred to the next END IF state- 
ment at the same IF-level as the block IF statement. 

Restrictions 

Control cannot be transferred into an IF-block from outside the IF-block. 
Example 

IF(Q .LE. R) THEN 

PRINT ( f Q IS LESS THAN OR EQUAL TO R' ) 
ELSE 

PRINT ( 'Q IS GREATER THAN R' ) 
END IF 



C 



( 
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PAUSE 

Use 

Suspends an executing program. 
Syntax 

PAUSE [n] 

where n is a string of not more than five digits or a character constant. 
Method of Operation 

A PAUSE statement without an n specification suspends execution of a program 
and issues the following message: 

PAUSE statement executed 

To resume execution, type go. Any other input 

will terminate job. 

A PAUSE statement with an n specification displays the specified character con- 
stant or digits and issues the pause message. For example, the statement 

Pause "Console Check" 
the following message is displayed: 

PAUSE Console Check statement executed 

To resume execution, type go. Any other input 

will terminate job. 

If execution is resumed, the execution proceeds as though a CONTINUE state- 
ment were in effect. 

At the time of program suspension, the optional digit string or character constant 
becomes accessible to the system as program suspension status information. 
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RETURN 

Use 
Syntax 



Returns control to the referencing program unit. It may appear only in a function 
or subroutine subprogram. 



In a function subprogram: 

RETURN 

In a subroutine subprogram: 

RETURN [e] 



where e is an integer or noa-mteger expression specifying an alternate return, 
present, are discanfed, before wntxol is rettime4 to the aftoiiate r^tpm argument 



Method of Operation 



A RETURN statement terminates the reference of a function or subroutine and 
transfers control back to the currently referenced program unit. In a function 
subprogram, the value of the function then becomes available to the referencing 
unit. In a subroutine, return of control to the referencing program unit completes 
execution of the CALL statement. 

A RETURN statement terminates the association between the dummy arguments 
of the external procedure and the current actual arguments. 

In a subroutine subprogram, if e is not specified in a RETURN statement or if the 
value of e is less than or greater than the number of asterisks in the SUBROU- 
TINE or ENTRY statement specifying the currently referenced name, then con- 
trol returns to the CALL statement that initiated the subprogram. Otherwise, the 
value of e identifies the eth asterisk in the dummy argument list of the currently 
referenced name. Control returns to the statement identified by the alternate re- 
turn specifier in the CALL statement that is associated with the eth asterisk in the 
dummy argument list. 

The execution of a RETURN statement causes all entities in an external proce- 
dure to become undefined except for the following: 

• Entities that are specified in a SAVE statement 

• Entities that are in blank or named common 

• Entities that are initialized in a DATA statement that have nei- 
ther been redefined nor become undefined 



( 



( 



( 



6-26 Part //; FORTRAN Language Reference 



Control Statements 



STOP 

Us© 

Allows termination of an executing program. 
Syntax 

STOP [n] 

where n is a string of not more than five digits or a character constant. 
Method of Operation 

The STOP statement terminates an executing program. If n is supplied, the digit 
string or character constant becomes accessible to the system as program termi- 
nation status information. 
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Input/Output Processing 



Records 



Input statements copy data from external media or from an internal file to inter- 
nal storage. This is called reading. Output statements copy data from internal 
storage to external media or to an internal file. This is called writing. 

Input/output facilities in FORTRAN give you control over the input/output sys- 
tem. This section deals primarily with the programmer-related aspects of input/ 
output processing rather than with the implementation of the processor-depend- 
ent input/output specifications. 

See Chapter 1 of the FORTRAN Programmer 1 s Guide for information on exten- 
sions to FORTRAN 77 that affect input/output processing. 



A record is simply a sequence of values or characters. FORTRAN has three 
kinds of records: formatted, unformatted, and endfile records. A record is a logi- 
cal concept; it does not have to correspond to a particular physical storage form. 
However, external media limitations may also limit the allowable length of re- 
cords. 



Formatted Records 



A formatted record contains only ASCII characters and is terminated by a car- 
riage-return or line-feed character. Formatted records are required only when 
the data must be read from the screen or a printer copy. 

A formatted record can be read from or written to only by formatted input/output 
statements. Formatted records are measured in characters. The length is primar- 
ily a function of the number of characters that were written into the record when 
it was created, but it may be limited by the storage media or the CPU. A format- 
ted record may have a length of zero. 



Unformatted Records 



Unformatted records contain sequences of values, both character and non-char- 
acter, are not terminated by any special character, and cannot be accurately com- 
prehended in their printed or displayed format. Generally, unformatted records 
use less space than formatted records and thus conserve storage. 

An unformatted record can be read from or written to only by unformatted input/ 
output statements. Unformatted records are measured in bytes. That length is 
primarily a function of the output list used to write the record, but may be limited 
by the external storage media or the CPU. An unformatted record may be empty. 
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Endfila Records 



I/O Statements 



An endftle record marks the logical end of a data file. Thus, it may occur only as 
the last record of a file. An endfile record does not contain data and has no 
length. An endfile record is written by an ENDFILE statement. 



The input/output statements that FORTRAN uses to transfer data can be catego- 
rized by how the data translated during the transfer, namely as formatted, list-di- 
rected, and unformatted input/output. 



Unformatted Statements 



( 



An unformatted input/output statement transfers data in the non-character format 
during an input/output operation. Unformatted input/output operations are usu- 
ally faster than formatted operations, which translate data to character format. 

In processing formatted statements, the system interprets some characters— for 
example, the line-feed character— as special controls and eliminates them from 
read records. Therefore, unformatted statements must be used when all charac- 
ters in a record are required. 

The absence of a format specifier (as well as an asterisk in the specifier) denotes 
an unformatted data transfer statement, as shown by the write statement in the 
following example: 



116 



45 



Unformatted Output 

program Makelndex 

character*12 word 

open (2, file=' v' , form=' formatted' ) 

open (unit=10,status='new' , f ile=*'NewV.out' , form=' unformatted' ) 

reg£l M J r 2 r «Q && * f ■ M& ftd«A5JL word 

jtfrite (10) word 



gotoTTT™** 
close (10) 
end 



s^Jwor 



( 



In the above example, formatted records are read into the variable word from the 
input file attached to Unit 2, and then written unformatted to the output file at- 
tached to Unit 10. 

Formatted Statements 

A formatted input/output statement translates all data to character format during a 
record transfer. The statement contains a format specifier that references a FOR- 
MAT statement; the FORMAT statement contains descriptors that determine data 
translation and perform other editing functions. Here is an example of two for- 
matted WRITE statements: 



( 
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Formatted Output 

program Makelndex 
character*18 message 
message = ' Hello World' 





write (6,100) 


message 




Write (6,100) 


' Hello World' 


100 


format (a) 





end 



Note that both statements contain the format specifier 100, which reference a for- 
mat statement with an a character descriptor (the descriptors are described in de- 
tail in Chapter 9); both statements perform the same function, namely writing 
the message Hello World to the device associated with Unit 6. 



List-Directed Statements 



Files 



A list-directed input/output statement performs the same function as a formatted 
statement. However, in translating data, a list-directed statement uses the de- 
clared data type rather than format descriptors in determining the format. 

The following two list-directed write statements perform the same function as 
the formatted write statements in the example for formatted output. 



List-Directed Output 

program Makelndex 
character*18 message 
message = 'Hello World' 
write (6,*) message 
write (6,*) 'Hello World' 
end 



In this example, the variable message in the first write statement determines that 
output is in character format; the character constant Hello World in the second 
statement make this determination. Note that list-directed statements contain an 
asterisk as the format specifier rather than a reference label. 



A file is a sequence of records. The processor determines the set of files that ex- 
ist for each executable program. The set of existing files can vary while the pro- 
gram executes. Files that are known to the processor do not necessarily exist for 
an executable program at a given time. A file may exist and contain no records 
(all files are empty when they are created). Input/output statements can only be 
applied to files that exist. 

Files may have names; if they do, they are called named files. Names are simply 
character strings. 
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External Files 



Internal Files 



Every data file has a position. The position is used by input/output statements to 
tell which record to access, and is changed when I/O statements are executed. 
The terms used to describe the position of a file are: 

• initial point. The point immediately before the first record. 

® terminal point The point immediately after the last record. 

® current record. The record containing the point where the file 
is positioned. There is no current record if the file is positioned 
at the initial point (before all records) or at the terminal point 
(after all records) or between two records. 

• preceding record. The record immediately before the current 
record. If the file is positioned between two records (so there is 
no current record), the preceding record is the record before the 
file position. The preceding record is undefined if the file is po- 
sitioned in the first record or at the initial point 

• next record. The record immediately after the current record. If 
the file is positioned between two records (so there is no current 
record), the next record is the record after the file position. The 
next record is undefined if the file position is positioned in the 
last record or at the terminal point. 

There are two kinds of files: internal files and external files. 

An external file is a set of records on an external storage medium (for example, a 
disk or a tape drive). A file can be empty; that is, it can contain no records. 

An internal file is a means of transferring data within internal storage between 
character variables, character arrays, character array elements, or substrings. 

An internal file is always positioned at the beginning of the first record prior to 
data transfer. Reading and writing records is only by sequential access formatted 
input/output statements that do not specify list-directed formatting. 

The following is a simple example showing the use of internal file transfer to 
convert character and integer data. 



( 



( 
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program Conversion 
character*4 CharRep 
integer NumericalRep 
NumericalRep = 10 



write (CharRep, 900) NumericalRep 
900 format (i2) 



CharRep = '222' 



write (NumericalRep , 999) CharRep 
999 format (a3) 



end 



Converts numerical 10 to character 10 

2 
Converts character 222 to numerical 222. 



In the first example, the contents of NumericalRep is converted to character for- 
mat and placed in CharRep; in the second example, the contents of CharRep is 
converted to integer and placed in NumericalRep. 



Methods of File Access 



The following methods of file access are supported: 

• Sequential 

• Direct 



External files can be accessed using any of the above methods. The access 
method is determined when the file is opened or defined. 

FORTRAN 77 requires that internal file must be accessed sequentially. 



Sequential Access 

A file connected for sequential access has the following properties: 

• For files that allow only sequential access, the order of the re- 
cords is simply the order they were written. 

• For files that also allow direct access, the order of files depends 
on the record number. If a file is written sequentially, the first 
record written is record number 1 for direct access, the second 
written is record number 2, etc. 

• Formatted and unformatted records cannot be mixed in a file. 

• The last record of the file may be an endfile record. 
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• The records of a pure sequential file must not be read or written ^ 
by direct access input/output statements. ^ 

Direct Access 

A file connected for direct access has the following properties: 

• A unique record number is associated with each record in a di- 
rect access file. Record numbers are positive integers that are 
attached when the record is written. Records are ordered by their 
record numbers. 

• Formatted and unformatted records cannot be mixed in a file. 

• The file must not contain an endfile record if it is direct access 
only. If the file also allows sequential access, an endfile record 
is permitted but will be ignored while the file is connected for 
direct access. 

• All records of the file have the same length. 

• Only direct access input/output statements may be used for read- 
ing and writing records. List-directed formatting is not permit- 
ted. 



• The record number cannot be changed once it is specified. A 
record can be rewritten but it cannot be deleted. 

• Records can be read or written in any order. 

. * Use of the keyed access method and the sequential access 



( 



( 
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Units 

Files are accessed through units. A unit is simply the logical means for accessing 
a file. The file-unit relationship is strictly one-to-one: files may not be con- 
nected to more than one unit or vice-versa. Each program has a processor de- 
pendent set of existing units. A unit has two states: connected and disconnected. 



Connection of a Unit 



A connected unit refers to a data file. A unit can be implicitly connected by the 
processor or explicitly by an OPEN statement. If a unit is connected to a file, the 
file is connected to the unit. However, a file may be connected and not exist. 
Consider, for example, a unit preconnected to a new file. A preconnected unit is 
a unit that is already connected at the time the program execution begins. See 
Preconnected Files in Chapter 1 of the FORTRAN Programmer 7 s Guide for 
these default connections. 

As stated above, a file may only be connected to one unit and a unit may only be 
connected to one file. 



Disconnection of a Unit 



A unit may be disconnected from a file by a CLOSE statement specifying that 
particular unit. 
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This chapter describes the statements that control the transfer of data within inter- 
nal storage, and between internal storage and external storage devices. This 
chapter has the following major sections: 

• Input/Output Statement Summary, an overview of the input/ 
output statements described in this chapter. 

• Statement descriptions, which give the syntax, rules, and exam- 
ples for each input/output statement. 

• Control Information List and Input/Output List, which de- 
scribe in detail parameters specified as part of an input/output 
statement. The lists specify data source and target locations, 
data format, and other information associated with data transfer. 

• Data Transfer Rules, which give general rules that apply to 
data transfer statements. 



Statement Summary 



The input/output statements described in this chapter are grouped into the follow- 
ing classes: 

1 . Data transfer statements, which transfer information between two areas of 
internal storage or between internal storage and an external file. They are: 

• READ 

• rjFTFTF * ■ ' 

• ACCEPT 

• WRITE 

• REWRITE 

• PRINT or 

2. Auxiliary statements, which explicitly open or close a file, provide current 
status information about a file or unit, or write an endfile record. They are: 

• OPEN 

• CLOSE 

• INQUIRE 

• ENDFILE 
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3. File positioning statements, which position data files to the previous record ^ 

or to the file's initial point. These statements apply only to external files and I 

they are: 

• BACKSPACE 

• REWIND 

4 < Statements that provide compatibility with eariier versions of FORTRAN* 
They are included to permit the older FORTRAN programs to be compiled 
and exist Qi* the same system as standard FORTRAN 77 programs* The 
statements include the following: 

^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

• DEFINE FEB 



c 



( 
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Purpose 



Syntax 



Rules of Use 



Example 



ACCEPT 



Transfers data from the standard input unit to the items specified by the input list. 



ACCEPT f [,iolist] 

where/ is the format specifier and iolist is an optional output list specifying 
where the data is to be stored. See the Control Information List and Input/ 
Output List sections of this chapter for a description of the /and iolist parame- 
ters. 



The ACCEPT statement specifies formatted input from the file associated with 
the system input unit; it cannot be connected to a user-specified input unit. 

See the Data Transfer Rules section of this chapter for additional rules. 



ACCEPT 3,x 
3 FORMAT (A) 

transfers character data from the standard input unit into X. 
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BACKSPACE 



Purpose 



Syntax 



Positions a data file before the preceding record. It may be used with both for- 
matted and unformatted data files. 



BACKSPACE u 
BACKSPACE (alist) 

where u is an external unit identifier and alist is a list of the following specifiers: 



[UNIT=]w 



IOSTAT=*os 



ERR=5 



is a required unit specifier, u must be an integer expression that 
identifies the number of an external unit. If the keyword UNIT= 
is omitted, then u must be the first specifier in alist. 

is an input/output status specifier that specifies the variable to be 
defined with a status value by the BACKSPACE statement. A 
zero value for /as denotes a no error condition while a positive 
integer value denotes an error condition. 

is an error specifier that identifies a statement number to which 
control is to be transferred when an error condition occurs during 
the execution of the BACKSPACE statement. 






Method of Operation 



Examples 



The unit specifier is required and must appear exactly once. The other specifiers 
are optional, and can appear at most once each in the alist. Specifiers can appear 
in any order (exception: see unit specifier). 

The BACKSPACE statement positions the file on the preceding record. If there 
is no preceding record, the position of the file is unchanged. If the preceding re- 
cord is an endfile record, the file is positioned before the endfile record. 



BACKSPACE M 

BACKSPACE (6, IOSTAT=LP, ERR«998) 



( 



( 



C 
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CLOSE 

Purpose 

Disconnects a particular file from a unit. 

Syntax 

CLOSE (cilist) 

where cilist is a list of the following specifiers: 

[UNIT =] u is a required unit specifier, u must be an integer expression that 
identifies the number of an external unit. If the keyword UNIT= 
is omitted, then u must be the first specifier in cilist 

IOSTAT=*as is an input/ output status specifier that specifies the variable to be 
defined with a status value by the CLOSE statement. A zero 
value for ios denotes a no error condition while a positive integer 
value denotes an error condition. 

st&te&ie&t override fhe disposition parameters ittit&OPBN 



ERR=tf is an error specifier that identifies a statement number to which 

control is to be transferred when an error condition occurs during 
execution of the CLOSE statement. 

STATUS=tf ta is a file status specifier, sta is a character expression which, 
when any trailing blanks are removed, has a value of BLEEP or 
DELETE. The status specifier determines the disposition of the 
file that is connected to the specified unit. 

KEEP specifies that the file is to be retained after the unit is 
closed. DELETE specifies that the file is to be deleted after the 
unit is closed. If a file has been opened for SCRATCH in an 
OPEN statement, then KEEP must not be specified in the 
CLOSE statement. If iolist contains no file status specifier, the 
default value is KEEP, except when the file has been opened for 
SCRATCH, in which case the default is DELETE. 
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CLOSE 

Method of Operation 



( 



At the normal termination of an executable program, all units that are connected 
are closed. Each unit is closed with status KEEP unless the file has been opened 
for SCRATCH in an OPEN statement In the latter case, the unit is closed as if 
with file status DELETE. 

A CLOSE statement need not occur in the same program unit in which the file 
was opened. A CLOSE statement that specifies a unit that does not exist or has 
no file connected to it does not affect any file and is permitted, 

A unit that is disconnected by a CLOSE statement may be reconnected within the 
same executable program, either to the same file or to a different file. A file that 
is disconnected may be reconnected to the same unit or a different unit, provided 
that the file still exists. 

Examples 

CLOSE (UNIT=1, STATUS^' KEEP ' ) 

CLOSE (UNIT=K, ERR-=19 , STATUS^' DELETE' ) 



( 



( 
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i!i!ifi§i 



DECODE 



ter format to internal format 

ment using internalizes except that teiiiputi^i^iid from a numeric scdar<>r 

among different FORTRAN?? operating environments. 



Syntax 






H^^^H^HH 



L The relationship between the 1/0 list and the format specifier is the same as 
for formatted I/O, 

2. The maxtaram numbered characters transmittecl is the maximum number 
possible forthe target data type. If tor## is au airay, the elemoRtsat^ proc- 
essed in subscript order, 
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DEFINE FILE 

IHirpose 



111I1I1I 



cE%$~*mmcr\ \ • ' ' 



DEFINE FILE u {xecconnt t x:ealen r U t as-var) 

ItU {'reccountf re&etot V t asv&r) } 






( 



( 
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flilllll 



DELETE EUUIT-3 tut»» ^^B 

DELETE <{0KIT>-3u«umC/I0STAT-jr»n»B»»-*l: 



ERR=* Statement label to which control is transferred after an error, 



IHH1IH 
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ENCODE 



( 



|l||ii||| 



format to character format. 

or array rafeerthan a character string, the concept of m^ilfipie records fent^up- 
ible among different FORTRAN 7? operating environments, " . . 



Iljlllll 






lisii 



wtisi 



Scalar reference or array indicating the destination of the charac- 
ter after translaiioE to external form. 

Optional list specifying the source data, a^ described in the In- 
put/Output Lfet section of this chapter. . . 



HBH^HI^^H 



L The relationship between the I/O list and the format specifier is the same as 
eased in subscript order. 



( 



( 
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ENDFILE 



Purpose 



Syntax 



Writes an endfile record as the next record of the file. It may be used with both 
unformatted and formatted data files. 



ENDFILE u 
ENDFILE (alist) 

where u is an external unit identifier and alist is a list of the following specifiers: 

[UNIT =] u is a required unit specifier, u must be an integer expression that 
identifies the number of an external unit. If the keyword UNIT= 
is omitted, then u must be the first specifier in alist. 

IOSTAT=ias is an inputl output status specifier that specifies the variable to be 
defined with a status value by the ENDFILE statement. A zero 
value for ios denotes a no error condition while a positive integer 
value denotes an error condition. 

ERR=tf is an error specifier that identifies a statement number to which 

control is to be transferred when an error condition occurs during 
the execution of the ENDFILE statement. 



Method of Operation 



Examples 



The unit specifier is required and must appear exactly once. The other specifiers 
are optional, and can appear at most once each in the alist. Specifiers can appear 
in any order (exception: see unit specifier). 

An ENDFILE statement writes an endfile record and the specified file is then 
positioned after the endfile record. If a file is connected for direct access, only 
those records before the endfile record are considered to have been written and 
thus can be read in subsequent direct access connections to the file. 

An ENDFILE statement for a file that is connected but does not exist creates the 
file. 

After an ENDFILE statement, a BACKSPACE or REWIND statement must be 
used to reposition the file prior to the execution of any data transfer input/output 
statement. 



ENDFILE 2 

ENDFILE (2,IOSTAT=IE, ERR=1000) 
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FIND 

(liiiiiii 



iiiiiiii 



akeadyopen. 



Tft$ parameter list js$# follows; 



( 



c 



( 
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INQUIRE 



Purpose 



Syntax 



Inquires about the properties of a particular named file or of the file connected to 
a particular unit. There are two forms: inquire by file and inquire by unit. 



INQUIRE (FIJjE^ fname\^^^^^^g^mmMM] inqlist 
INQUIRE (UNIT=]u,iiign^ 

The parameter list is as follows: 

FlLE=fname is a file specifier, fname is one of the following: a character ex- 
pression, ^ffi^^l^Pbat specifies the name of the file being 
queried. The named file need not exist or be connected to a unit. 

[UNIT=]w is a unit specifier, u must be an integer expression that identifies 
the number of an external unit. The specified unit need not exist 
or be connected to a file. If the keyword UNIT= is omitted, then 
u must be the first specifier in inqlist. 

m OPEN statement and is used to inquire 




inqlist is composed of one or more of the following parameters: 

ACCESS=acc ace is a character variable or character array element to be as- 
signed a value by the INQUIRE statement. The value assigned 
describes the type of file access as follows: 



Value Assigned 


File Access 


SEQUENTIAL 

DIRECT 

KEYED 


Sequential 
Direct 
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BLANK==6M blnk is a character variable or character array element to be as- 
signed a value by the INQUIRE statement. The value assigned 
describes the blank specifier for the file as follows: 



blnk=: 


Blank Control Specifier. 


NULL 


Null blank control, connected for 




formatted input/output. 


ZERO 


Zero blank control 


.tmKSQWtf 


KDteonitectedoriiotcoime€t€dfor 




formatted input/output 



( 



CARRIAOECOls!TROL^c^?^c 

ccspeck assigned om of the foU(>wing earria^e control ^peclfi- 
. • . cations made in the OPEN statement for the file: FORTRAN, 

LIST, NONE, or UNKNOWN, 

DTRECT~dir dir is a character variable or character array element to be as- 
signed a value by the INQUIRE statement, dir is assigned the 
value YES if DIRECT is an allowed access method for the file. 

dir is assigned the value NO if DIRECT is not an allowed access 
method. If the processor is unable to determine the access type, 
dir is assigned the value UNKNOWN. 

ERR-s is an error specifier that identifies a statement number to which 

control is to be transferred when an error condition occurs during 
the execution of the INQUIRE statement. 

EXIST=£*: ex is a logical variable or logical array element to be assigned a 
value by the INQUIRE statement, ex is assigned the value 
.TRUE, if the specified unit or file exists; otherwise, ex is as- 
signed the value .FALSE.. A unit exists if it is a number in the 
range allowed by the processor. 



c 



c 
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FORM=/m 



INQUIRE 

fin is a character variable or character array element to be as- 
signed a value by the INQUIRE statement. The value assigned 
is the form specifier for the file as follows: 



fin= 


Meaning 


FORMATTED 
UNFORMATTED 


Formatted input/output. 
Unformatted input/output 
Unit is not connected. 



FORMATTED=ftnt 

fint is a character variable or character array element to be as- 
signed a value by the INQUIRE statement, fint is assigned the 
value YES if FORMATTED is an allowed form for the file, fint 
is assigned the value NO if FORMATTED is not an allowed 
form. If the processor is unable to determine the allowed forms 
of data transfer, fint is assigned the value UNKNOWN. 

IOSTAT=/<w is an inputl output status specifier that specifies the variable to be 
defined with a status value by the INQUIRE statement. A zero 
value for ios denotes a no error condition while a positive integer 
value denotes an error condition. 



liiiiiliiiiiil 



as follows; III 



IlMiiillllB 


•^^MW^M^^^^^^^^^^^^^^K 


YES 


fa<texsd file, keyed access allowed 
Keyed assess not allowed 


vwmam 


Access type undetermined 



.TRUE, iffheffiehasaname, Oijtew^ ^w^ is asdgnecl the 
yafoie>FAL$E M . 

NAME=jfo fn is a character variable or character array element to be as- 
signed a value by the INQUIRE statement, fn is assigned the 
name of the file if the file has a name. Otherwise, fn is unde- 
fined. If the NAME specifier appears in an INQUIRE by file 
statement, its value is not necessarily the same as the name given 
in the file specifier. 
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NEXTREC=wr nr is an integer variable or integer array element to be assigned 
a value by the INQUIRE statement nr is assigned the value n 
+ 1 , where n is the record number of the last record read or 
written for direct access on the specified unit or file. If the file 
is connected but no records have been read or written, nr is as- 
signed the value 1. If the file is not connected for direct ac- 
cess, nr ^^P^^^^I^P 

NUMBER=m*m 

num is an integer variable or integer array element that is as- 
signed a value by the INQUIRE statement, num is assigned the 
external unit identifier of the unit currently connected to the file. 
num is undefined if there is no unit connected to the file. This 
specifier must not be used with an INQUIRE by unit statement 
(INQUIRE {Mist)). 

OPENED=0d od is a logical variable or logical array element to be assigned a 
value by the INQUIRE statement, od is assigned the value 
.TRUE, if the file specified is connected to a unit or if the speci- 
fied unit is connected to a file. Otherwise, od is assigned the 
value .FALSE.. 



INDEXED, or UNKNOWN (always assigned to unopened 

RECL=rd rcl is an integer variable or integer array element to be assigned a 
value by the INQUIRE statement rcl is assigned the value of 
the record length in number of characters or in processor-de- 
pendent units for formatted or unformatted input/output, respec- 
tively. If there is no connection or if the connection is not for 
direct access, rcl becomes undefined. 

ABLE* STREAM 111 UNKNOWN. ' 11111 



( 



( 
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SEQUENTIAL^? 

seq is a character variable or character array element to be as- 
signed a value by the INQUIRE statement, seq is assigned the 
value YES if SEQUENTIAL is an allowed access method for the 
file, seq is assigned the value NO if SEQUENTIAL is not an 
allowed access method. If the processor is unable to determine 
the allowed access methods, seq is assigned the value UN- 
KNOWN. 

UNFORMATTED^/ 

unfis a character variable or character array element to be as- 
signed a value by the INQUIRE statement, wn/is assigned the 
value of YES if UNFORMATTED is an allowed format for the 
file. 

unfis assigned the value NO if UNFORMATTED is not an al- 
lowed format for the file. If the processor is unable to determine 
the allowed form, ww/is assigned the value UNKNOWN. 



Method of Operation 



Examples 



Specifiers can be given in iflist or Mist in any order (exception: see unit 
specifier). 

An INQUIRE statement assigns values to the specifier variables or array ele- 
ments nmd,fn, seq, dir,fint and unfouly if the value of the file specifier fname is 
accepted by the processor and if a file exists by that name. Otherwise, these 
specifier variables become undefined. Each specifier can appear at most once in 
the iflist or iulist, and the list must contain at least one specifier. 

An INQUIRE statement assigns values to the specifier variables or array ele- 
ments num, nmd,fn, ace, seq, dir,fm,fmt, unf, rcl, nr and hlnk only if the speci- 
fied unit exists and if a file is connected to it. Otherwise, these specifier variables 
become undefined. However, the specifier variables ex and od are always de- 
fined unless an error condition occurs. All inquiry specifier variables, except ios, 
become undefined if an error condition occurs during execution of an INQUIRE 
statement. 



INQUIRE (FILE='MYFILE.DATA' ,NUMBER=IU, RECL=IR) 
INQUIRE (UNIT=6, NAME=FNAME) 
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OPEN 

Purpose 



Syntax 



OPEN creates files and connects them to units. It can create a preconnected file, 
create and connect a file, connect an existing file, or reconnect an already con- 
nected file. See File Positions in Chapter 1 of the FORTRAN Programmer's 
Guide for information on the relative record position in a file after an OPEN is 
executed. 



OPEN (olist) 

where olist is a list of the following specifiers, separated by commas: 

[UNTT-] u is a required unit specifier, u must be an integer expression that 
identifies the number of an external unit. If the keyword UNIT= 
is omitted, then the u must be the first specifier in olist. 

IOSTAT=/as is an inputl output status specifier that identifies the variable to be 
defined with a status value by the OPEN statement. A zero value 
for ios denotes a no error condition, while a positive integer 
value denotes an error condition. 

ERR-s is an error specifier that identifies a statement number to which 

program control is to be transferred when an error condition oc- 
curs during execution of the OPEN statement. 

FlLE^fname is afile specifier, fname is a character expression specifying the 
name of the external file to be connected. The file name must be 
a name allowed by the processor. 

fname can also be a numeric variable to wMchhofleritfidatak 
assigaed. A null character terminates the filename. 

ACCESS=acc is an access specifier, ace is a character expression which, when 
trailing blanks are removed,, has either of the values SEQUEN^ 
TIAL, DIRECr v |HHHHHB 

SEQUENTIAL specifies that the file is to be accessed sequen- 
tially. 

DIRECT specifies that the file is to be accessed by record num- 
ber. If DIRECT is specified, then iolist must also contain a re- 
cord length specifier. If iolist contains no access specifier, the 
value SEQUENTIAL is assumed. 



( 



c 
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OPEN 

APPEND specifies sequential access that, after execution of an 

Dimet access only. After each itiimt/output operation ^v^atr 
contains m integer variable giving the record number of the 
next sequ^Dtiai record number in the file, 11*is parameter is 
ignored for all access modes other than direct access* 



BLANK=6M is a 6/<2«fc specifier, blnk is a character expression which, when 
all trailing blanks are removed, has the value NULL (the default) 
or ZERO. 

NULL specifies that blank characters in numeric formatted input 
fields are to be ignored. 

ZERO specifies that all blanks other than leading blanks are to 
be treated as zeros. If iolist contains no blank specifier, the value 
NULL is assumed. 



llilll 



llpiii 

mm 



liiiiilil 



Standard FOIO^Uy^ inteip^ation 
of the first charade ' ^^^^ 

Single spacing between llne| 
No implied carriage control 



LIST is the defaait for formatted files and MME m the deMft 
fte FORTRAN Programmer* f s &wde)\% specified, FORTRAN 
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OPEN 



D1SP^ifcsp^ti&^ lllllll 

effect on the closed file, • ^^^^^^H 



c 



DISPOSE= 

w'W i V»l * > i)i i): i*»V ww i w» i l"wW i V 4 W ' V i l4i lJ 



SAVE 
P"RIKT . 

;|||lill|||i|J 
SUBMIT 

SHlllliiilll 



■■■hhui 



SameasKBER 

Piloted and deleted* . 



( 



FORM==jfrw is a/orm specifier, fin is a character expression which, when all 
trailing blanks are removed has either of the values FORMAT- 
TED or UNFORMATTED. The file is connected for formatted 
or unformatted input/output, respectively. If iolist contains no 
form specifier, the default value FORMATTED is assumed for 
sequential and direct access file. 



c 
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mg^Am type of tmkt% \ \ 

* Themaxl^^mleogtliofal^y is 120 bytes. 

♦ keyhtanmd keyhnd are inlets defining the ^mit and eadixig 
byte position of the primary field, which is always feqtiired 

starting arid ending position of alternate &&&$tWUzhmto$~ 

of^efermcespeeifier.KEYlD, described in the CMtmlJnffor* 

field starting the keylstart (primary) key; KEYII>4 .specific 

IIIIIIIIB^ 

•feet pemiMeMy for subsequent file openings If KEY is sped- j 
^.stch those specified ^teti the file was cite«ed.^^^^^H 




II omitted* mo maximum limit exists , ^^^^^^^B 



RECL=r/ is a record fetfgf/i specifier, rl is a positive integer expression 

specifying the length in characters or processor-dependent units 
for formatted and unformatted files, r^j^tiyej^^^This specifier 
is required for direct access files anc^^^^^^files; other- 
wise, it must be omitted. 
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mmmmmm 



( 



ing to the specified file is i& permitted, 

Sameas&BCL. 

ffieisto<^ntaln;/t canbeo^ 

rameters, The default types are as follows; 



llllliillil 



Relative or indexed 
Direct access sequential 

Unformatted sequential access j 



Record type (default) 



FIXED 

■■■Hi 

IHHi 
liiliiillll 



c 



The Mowing rules apply; . 

vahie shown in the table showrc above* 

coring trailing blanks has one of the following values^ 
lie with the same name must not already exist 
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SCRATCH, An unnarosd file will be created vflMii$<mfr 
iiriitfedo^ed by CLOSE. Named JStesshodd not be ii^dwitii 

SCRATCH. . . BBBBBl 

gmmmer's Guide for mote MomatiotL 

fault, ^^^^l^HPH 



wSMmsMS^XMmmM 



Rules of Use 



Examples 



1 . Specifiers may be given in iolist in any order (exception: see unit specifier). 



2. The unit specifier is required; all other specifiers are optional. The record 
length specifier is required for connecting to a direct access file. 

3. The unit specified must exist. 

4. An OPEN statement for a unit that is connected to an existing file is allowed. 
If the file specifier is not included, the file to be connected to the unit is the 
same as the file to which the unit is connected. 

5. A file to be connected to a unit that is not the same as the file currently con- 
nected to the unit, has the same effect as a CLOSE statement without a file 
status specifier. The old file is closed and the new one is opened. 

6. If the file to be connected is the same as the file to which the unit is currently 
connected, then all specifiers must have the same value as the current con- 
nection, except for the value of the BLANK specifier. 

7. See the Data Transfer Rules section of this chapter for additional rules. 



OPEN(l, STATUS='NEW ) 

OPEN(UNIT=l, STATUS=' SCRATCH' ,ACCESS*=' DIRECT' ,RECL=64) 

OPEN(l, FILE='MYSTUFF', STATUS='NEW , ERR=14, 

ACCESS=' DIRECT' ,RECL=1024) 
OPEN (K, FILE='MAILLIST' , ACCESS=' INDEXED' , 

FORM=' FORMATTED' ,RECL=25 6, 

KEY= (1:20, 21: 30, 31: 35, 200: 256)) 
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Mlif tbr TYill 



iiiiiiiii 



Syntax 



Rules of Use 



Examples 






print f ifioXl®tl / • . ! 






£RINT *,X r Y,Z 

TYPE *,' VOLUME IS * r V,' RADIUS IS ',R 



( 



( 
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READ (Direct Access) 



Purpose 

Syntax 

Formatted 

Unformatted 



Transfers data from an external file to the items specified by the input list. 
Transfer occurs using the direct access method (see Chapter 7). 



READ ( [UNIT=] unum, REC=rn,f[, IOSTAT-ios] [, ERR=s] ) [iolist] 



READ ( [UNIT=] unum, REC=rn, [, IOSTAT=rn] [, ERR=s] ) [iolist] 

Parameter Explanations 

UNYT^unum Unit or internal file to be acted upon. 

/ A format specifier 

REC=rw Direct access mode. The number of the record to be accessed. 

IOSTAT=r/i Name of variable in which I/O completion status is to be posted. 

ERR=£ Statement label to which control is transferred after an error. 

iolist Specifies memory location where data is to be read. 

See Control Information List and Input/Output List sections in this chapter 
for details on these parameters. 

See the Data Transfer Rules section of this chapter and Chapter 7 for more 
information on formatted and unformatted input/output. 
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READ (Indexed) 



Formatted 






Unformatted 



^^^^^^B^^^^K 



*unum 



Stbri^temailiiletobeacfedupo^ 



mtm 















^^^^^^^^^P^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^BH 




^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^B 


'WMf$MMWMMW^XMf^§M^fMM^^^^^^M^^^^^^& 


^^^^^^^^^^^^^^^^^^^^^^^^^^^^^H 
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READ (Internal) 



Purpose 

Syntax 

Formatted 

List-Directed 



Transfers data from an internal file to internal storage. 



READ ( [UNIT=]uJium,f[ f IOSTAT=rn] [,ERR=s] [ , END=eof] ) [iolist] 



READ ( [UNIT=]u/2imv *[, IOSTAT=rn] [,ERR=s] [ , END=eojf ] ) [iolist] 

Parameter Explanations 

TJNIT=unum Unit or internal file to be acted upon. 

/ A format specifier 

* List-directed input specifier. 

IOSTAT=ra Name of variable in which I/O completion status is to be posted. 

ERR=s Statement label to which control is transferred after an error. 

END=eof Statement label to which control is transferred upon end-of-~file. 

iolist Specifies memory location where data is to be read. 

See Control Information List and Input/Output List sections in this chapter 
for details on these parameters. 

See the Data Transfer Rules section of this chapter and Chapter 7 for more 
information on formatted and list-directed input/output. Chapter 7 also contains 
an example input/output using internal files. 
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READ (Sequential) 



Purpose 



Syntax 

Formatted 

List-Directed 



Transfers data from an external record to the items specified bjr the input list. 
Transfers occurs using the sequential access method or|li|ffili||^l|nethod 
(See Chapter 7.) 



READ ( [UNIT-] unum,£[ , IOSTAT=rn] [,ERR=s] [ f END=eo:f]) [iolist] 
READ £[ f iolist] 



READ ( [UNIT=] Uiium, *[, IOSTAT=rn] [,ERR=s] [,END=eo.f] ) [iolist] 
READ f* [iolist] 



Unformatted 

liilliiiiiillii 



READ ( [UNIT=] unum[ f IOSTAT=x*i3] [,ERR=s] [,END=eOJf] ) [iolist] 



( 



Parameter Explanations 



UNYT^unum Unit or internal file to be acted upon. 

/ A format specifier. 

,,*,,,,,,v,,,, ,,,,,,, v^ 

' IOST^ 

to be posted. 
ERR=tf Statement label to which control is transferred after 



END=eof 



iolist 



an error. 

Statement label to which control is transferred upon 

end-of-file. 

Specifies memory location where data is to be read. 



See Control Information List and Input/Output List sections in this chapter 
for details on these parameters. 



c 



c 
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READ (Sequential) 



Method of Operation 

Formatted 



List-Directed 



Namelist-Directed 



Unformatted 



Rules 

Unformatted 



A formatted READ statement transfers data from an external record to internal 
storage. It translates the data from character to binary format using the /specifier 
to edit the data. 



A list-directed READ statement transfers data from an external record to internal 
storage. It translates the data from character to binary format using the data types 
of the items in iolist to edit the data. 



*ii&«^ 




A unformatted READ statement transfers data from an external record to internal 
storage. The READ operation performs no translation on read-in data. The data 
in read in directly to the items in iolist. The type of each data item in the input 
record must match that declared for the corresponding item in iolist. 



1 . There must be at least as many items in the unformatted record as there are in 
iolist. Additional items in the record are ignored, and a subsequent READ 
accesses the next record in the file. 

2. The type of each data item in the input record must match the corresponding 
data item in iolist. 

See the Data Transfer Rules section of this chapter and Chapter 7 for more 
information on formatted, list-directed unformatted, and namelist-directed input/ 
output. 
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READ (Sequential) 



Rules (continued) 

List-Directed 



1 . The external record can have one of the following values: 

• A constant with a data type of integer, real, logical, complex, or 
character. The rules given in Chapter 2 define the acceptable 
formats for constants in the external record. 

• A null value, represented by a leading comma, two consecutive 
constants without intervening blanks, or a trailing comma. 

• A repetitive format n*constant, where n is a nonzero, unsigned 
integer constant indicating the number of occurrences of con- 
stant, ft* represents repetition of a null value. 

3. A value separator must delimit each item in the external record; a value 
separator can be one of the following: 

• One or more spaces or tabs. 

• A comma, optionally surrounded by spaces or tabs. £ 

4. A space, tab, comma, or slash appearing within a character constant are proc- 
essed as part of the constant, and not as delimiters. 

5. A slash terminates delimits the end of the record and causes processing of an 
input statement to halt; the slash can be optionally surrounded by spaces and/ 
or tabs. Any remaining items in iolist are unchanged after the READ. 

6. When the external record specified contains character constants, a slash must 
be specified to terminate processing of the record. If the external record ends 
with a blank, the first character of the next record processed follows immedi- 
ately after the last character of the previous record. 

7. Each READ reads as many records as is required by the specifications in 
iolist Any items in a record appearing after a slash are ignored. 



( 
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1 . The figure below gives some roles for iiameiist input data and shows its for- ; 



is 



CoMfbn 2 



$grmp~mme item «*wtm Uitem - w&$/ - ♦ J $ESNi>] 



'A constant as specified < 
under the rules for 
Li^Dir^tedinthi^ 
section, 

A nwnelist item as defined 
in a kambl IS 'Statement. 

Tfaenameofthenamelist 
as specified In a previously 
defined name li St statement. 

(Chapter 4 ) + . 



Required start delimiter, 
Ampersand (&} is also 
acceptable. 



Optional end 



Reguired end delimiter, 
Ampersand (&} is also 



string specifier, ^^^^^^H 

tioii y List-Direeted. 

and 4 under list-Directed. • . j 

essedfoEows immediately afterthe last character of the previous record, 
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( 



Rules (continued) 

Namelist-Directed 



Examples 






In the following example, the name of a file is read from the standard input into 
filename, the file is opened, and the first record is read, A branch is taken to 
statement 45 (not shown) when end~of-file is encountered. 

read (*,10) filename 
10 format (a) 

open (2 f file-filename) 

read (2, 20, end-45) word 
20 format (A50) 



( 



( 
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REWIND 

Use 

Positions a file at its initial point. It may be used with both unformatted and for- 
matted data files. 



Syntax 



REWIND u 
REWIND (alist) 

where u is an external unit identifier and alist is a list of the following specifiers: 

[UNIT =] u is a required unit specifier, u must be an integer expression that 
identifies the number of an external unit. If the keyword UNIT= 
is omitted, then u must be the first specifier in alist. 

IOSTAT = ios is an inputl output status specifier that specifies the variable to be 
defined with a status value by the REWIND statement. A zero 
value for ios denotes a no error condition while a positive integer 
value denotes an error condition. 

ERR = 5 is an error specifier that identifies a statement number to which 

control is to be transferred when an error condition occurs during 
the execution of the REWIND statement 



Method of Operation 



Examples 



The unit specifier is required and must appear exactly once. The other specifiers 
are optional, and can appear at most once each in the alist. Specifiers can appear 
in any order (exception: see unit specifier). The REWIND statement positions 
the specified file at its initial point. If the file is already at its initial point, the 
REWIND statement has no effect. A REWIND statement for a file that is con- 
nected but does not exist is allowed but has no effect. 



REWIND 8 

REWIND (UNIT=NFILE,ERR=555) 
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( 



Tmmfm data to m external Indexed file from the items specific by the output 
indexed READ statement 



REWRITE { tJJETT-lnn'ttm^flr IOSTAT-Jtria] [ # ERR-3] ^ {loll$t] 



Syntax 

Formatted 



Rules of Use 



^i||ra|f|l 



TfteEewiOT 

See the Bate Transfer Rules section of this chapter for additional rules. 



Rewrites the la&t record a&cessed to the Indexed file comieeted to logical udt 10. 



c 



c 
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UNLOCK 



Purpose 



Syntax 



Makes the last record read from an indexed file available for access by other us- 
ers. 



UNLOCK [UNIT=] unum 

UNLOCK ([UNIT=] unum [,IOSTAT=rn] [,ERR=s] 

Parameter Explanations 

JJNlT^unum Unit or internal file to be acted upon. 

IOSTAT=r« Name of variable in which I/O completion status is to be posted. 

ERR=s Statement label to which control is transferred after an error. 

See the Control Information List section in this chapter for details on each of 
these parameters. 



Method of Operation 



Examples 



After a record is read from an indexed file, it cannot be accessed by other users 
until an UNLOCK statement is executed, the record is rewritten, or a new record 
is read. 



UNLOCK (10) 

unlocks the last record read in from the file connected to logical unit 10. 
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Purpose 

Transfers data from internal storage to an external indexed using the direct access 
method. 

Syntax 

Formatted 

WRITE ( [UNIT=]unui?2 r REC=rji,i : [ f IOSTAT=m] [,ERR=s]) [iolist] 

Unformatted 

WRITE ( [UNIT=]unum r REC=r/i r [, IOSTAT=ios] [,ERR=s] ) [iolist] 

Parameter Explanations 

UNTT=unum Unit or internal file to be acted upon. 

REC=ra Direct access mode. The number of the record to be accessed. 

/ A format specifier 

IOSTAT=ra Name of variable in which I/O completion status is to be posted. 

ERR=tf Statement label to which control is transferred after an error. 

iolist Specifies memory location from which data is to be written. 

See Control Information List and Input/Output List sections in this chapter 
for details on these parameters. 

See the Data Transfer Rules section of this chapter and Chapter 7 for more 
information on formatted and unformatted input/output. 



Rules of Use 



1. Execution of a WRITE statement for a file that does not exist creates the file. 



c 



( 
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WRITE (Internal) 

Purpose 



Syntax 

Formatted 

List-Directed 



Transfers data to an external file or an internal file from the items specified by 
the output list. 



WRITE ([UNIT=]u/JU2n,.f[,IOSTAT=ios] [,ERR=s]) [iolist] 



WRITE ( [UNIT=*] um2m,*[f IOSTAT=rfl] [,ERR=s]) [iolist] 

Parameter Explanations 

XJNlT=unum Unit or internal file to be acted upon. 

/ A format specifier. 

* list-directed out specifier. 

IOSTAT=ra Name of variable in which I/O completion status is to be posted. 

ERR=tf Statement label to which control is transferred after an error. 

iolist Specifies memory location from which data is to be written. 

See Control Information List and Input/Output List sections in this chapter 
for details on these parameters. 

See the Data Transfer Rules section of this chapter and Chapter 7 for more 
information on formatted and list-directed input/output. Chapter 7 also contains 
an example input/output using internal files. 



Rules of Use 



1 . Execution of a WRITE statement for a file that does not exist creates the file. 



See the ENCX>BE statement description in this chapter for more information, 



( 



( 



( 
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WRITE (Sequential) 



Purpose 



Syntax 

Formatted 



Transfers data to an external file or an internal file from the items specified by 
the output list. 



WRITE ( [UNI T=] unum,f[ f IOSTAT-rn] [,ERR=s]) [iolist] 






Unformatted 
Namelist- Directed 



WRITE ( [UNIT-] unum [,IOSTAT=rn] [,ERR-s]) [iolist] 



WRITE ( [UNIT=] unum, NML= gro up -n ame [ , IOS- 
TAT=r/i] [,ERR=s] [,END=eof]) 



Parameter Explanations 



jy^TrM^. Unit or internal fflc. to be acted upon. 

NML-grmp-ntme A namelist specifier, , /. 

/ A format specifier. 

* List-directed out specifier. 

REC=r« Direct access mode. The number of the record to be ac- 

cessed. 

IOSTAT=r/i Name of variable in which I/O completion status is to be 

posted. 

ERR^s Statement label to which control is transferred after an er- 

ror. 

iolist Specifies memory location from which data is to be written 

See Control Information List and Input/Output List sections in this chapter 
for details on these parameters. 

See the Data Transfer Rules section of this chapter and Chapter 7 for more 
information on formatted, list-directed, and unformatted input/output. 
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WRITE (Sequential) 



Method of Operation 



Formatted 



List-Directed 



A formatted WRITE statement transfers data from internal storage to an external 
record using sequential access mode. The WRITE operation translates the data 
from binary to character format using the/ specifier to edit the data. 



A list-directed WRITE statement transfers data from internal storage to an exter- 
nal record using sequential access mode. The WRITE operation translates the 
data from binary to character format using the data types of the items in iolist to 
edit the data. 







Unformatted 



Rules 



List-Directed 



An unformatted WRITE statement performs no translation on read-in data. The 
data is read in directly to the items in iolist The type of each data item in the 
input record must match that declared for the corresponding item in iolist. 



Execution of a WRITE statement for a file that does not exist creates the file. 

1 . The item to be transferred to an external record can be a constant with a data 
type of integer, real, logical, complex, or character. 

2. The rules given in Chapter 2 define the acceptable formats for constants in 
the external record, except for character constant. A character constant does 
not require delimiting apostrophes; an apostrophe within a character string is 
represented by one, instead of two, apostrophes. 



c 



( 



( 
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WRITE (Sequential) 



Rules (continued) 

List-Directed 



3. The table below shows the data types and the defaults of their output format. 



Data Type 


Equivalent Format Specification of Default Ouput 


LOGICAL*! 




liBSllllllll 




LOGICAL* 4 


L2 


LOGICAL 


L2 


ll^BIBHIII 
IWHiiilllll 




INTEGER 


112 


IWiilSllilil 


^^KSIil^MlBlill^^^^^^^H 


REAL 

iiiiil 
litfiilllllll 


1PG15.7E2 


COMPLEX 


' (',1PG15.7E2,',',1PG15.7E2,')' 


ilRlililiilll 

CHARACTER*?! 


An, where n is the length of the character 
expression. 



4. List-directed character output data cannot be read as list-directed input be- 
cause of the different use of apostrophes described in Rule 2. 

5. A list-directed output statement can write one or more records. Position 1 of 
each record must contain a space (blank), which FORTRAN uses for a car- 
riage-control character. 

Each value must be contained within a single record with the following ex- 
ceptions: 

• a character constant longer than a record can be extended to a 
second record 

• a complex constant can be split onto a second record after the 
comma 

6. The output of a complex value contains no embedded spaces. 

7. Octal values, null values, slash separators, or the output of a constant or null 
value in the repetitive format n*constant or w*z cannot be generated by a 
list-directed output statement. 
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WRITE (sequential) r 

Rules (continued) 



Examples 



The following statement writes the prompt enter a filename to standard output: 

write (*,105) 
105 format (lx,' enter a filename') 

The following statement opens the file %%temp and writes the record pair to the 
file. 

open (unit-10, status^' unknown' , file^'^temp") 
write (10,1910) pair 
1910 format (A) 



( 
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This section describes the components of the control information list (cilist) and 
the input/output list (iolist), which can be specified as elements of the I/O state- 
ments described in this chapter. 

The table below summarizes the items that can be specified in a cilist. Each cilist 
specifier shown in the table can appear at most once in a cilist. Note that the key- 
words UNIT= and FMT= are optional. Normally, the cilist items may be written 
in any order, but if UNIT= or FMT= is omitted, the following restrictions apply: 

1 . The keyword UNIT= may be omitted if and only if the unit specifier is the 
first item on the list. 

2. The keyword FMT= may be omitted if and only if the format specifier is the 
second item in the cilist and the first item is a unit specifier in which the key- 
word UNIT= has been omitted. 

A format specifier denotes a formatted input/output operation; default is an 
unformatted input/output operation. If a record specifier is present, then di- 
rect access input/output is denoted; default is sequential access. 



Specifier 


Purpose 


[UNIT-] U 


Unit or internal file to be acted upon. 


J&MIp* group-name ] 


Identifies the group-name <)f ^Mst<^ itjsm& "^^M 
whenn^melisfeHiirectedl/Olsu^d. 


[FMT=] / 


Formatted or unformatted input/output operations. 
If formatted, contains format specifiers for data 
to be read or written. 


REC= rn 


Number of a record to be accessed in direct access mode. 


I^^IHH^^BIS 


Value of the key field In a record to beaccessed 
. in indexed access mode, where c tin be the optional 


KE¥ID~ krt 


l^y-Meiience specifier, specifying eilher the primary 
keyoroneofthealternatekey^inarecotdto 
• be i^eferenced in indexed acce^ mode. |||| ' 


IOSTAT= ios 


Name of a variable in which I/O completion status 
is to be returned. 


ERR=5 


Label of a statement to which control is transferred if 




an error occurs. 


END= s 


Label of a statement to which control is transferred if 




an end-of-file condition (READ only) occurs. 
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Unit Specifier — unum 

The form of a unit specifier is: 

[UNTT=]k 

where u is a unit identifier specified as follows: 




2. An asterisk specifying a unit that is connected for formatted sequential access 
(external file identifier only). This denotes the system input unit in a READ 
statement, or the system output unit in a WRITE statement. 

3. An identifier that is the name of a character variable, character array, charac- 
ter array element, or substring (internal file identifier only). 

An external unit identifier can have the form described in Rule 1 or 2 above, but 
it cannot be an asterisk in an auxiliary output statement as described in Rule 2. 

An internal file identifier must be specified as described in Rule 3. 

The syntax shows that the keyword UNIT== may be omitted. If UNIT^= is omit- 
ted, the unit identifier must be first in a control information list For example, 
two equivalent READ statements are: 

READ(UNIT= 5) 
READ (5) 

Format Specifier — FMT 

The syntax of & format specifier is: 

[FMT=]£ 

where/is a format identifier. As shown in the syntax, the keyword FMT= can be 
omitted from the foraiat identifier. If so, the format identifier must be in second 
in a control infoimation list, and the UNIT== keyword must also have been omit- 
ted. 

The legal kinds of format identifiers are: 

1 . The statement label of a FORMAT statement (the FORMAT statement and 
the format identifier must be in the same program unit). 

2. An integer variable name assigned to the statement label of a FORMAT 
statement (the FORMAT statement and the format identifier must be in the 
same program unit). 

3. A character expression (provided it does not contain the concatenation of a 
dummy argument that has its length specified by an asterisk). 

4. The name of a character array. 

9-44 Part It: FORTRAN Language Reference 



( 



( 



Input/Output Statements 



5. An asterisk that is used to indicate list-directed formatting. 

Record Specifier — REC 

The form of a record specifier is: 

REC=m 

where rn is an expression that evaluates the record number of the record to be 
accessed in a direct access input/output operation. Record numbers must be inte- 
gers greater than zero. 



llllllillll 

llilliliiili 

llllllillll 

KEYGJEWfcVdf 



||il|lsft>r Record Selection 



i ^^frwp w w ' ^ ^ 



The key-field valaeb^ andtfceksy field are equal. 



v j ^^ff^v9ff^9 f2' ff^^} ? ^ ' ^!^ ! vx v ^?!^yy}f} 
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Key-of-Referenc0 Specifier — KEYI0 



put/output Mateiftent, the key field iti^tec^tdl4>wM€littoek€y-Md^Y^lue 
specifier applies ' • . ' . " 

Hie specifier has the Mowing format: , 

where Bis a number from to the maximum number of keys defined for the 
records in the indexed file; specifies the primary key, 1 specifies the first al- 
tercate key, 2 specifies the second alternate key, etc. The KEY parameter of the 
OPEN statement that created thelites creates and establishes the ordering of the 
primary and alternate key& , 

statement to the same input/output unit is used. The default for KEYIDis^ro 
<0>lf it isn't specified for fee first input/output statement. 



Input/Output Status Specifier — ios 

An input/ output status specifier has the form: 

IOSTAT==rn 



( 



where ios is a status variable indicating an integer variable or an integer array I 

element. Execution of an input/output statement containing this specifier causes 
ios to become defined with the value: 

1 . Zero if neither an error condition nor an end-of-file condition is encountered 
by the processor, indicating a successful operation. 

2. Positive integer if an error condition occurred. 

3. Negative integer if an end-of-file condition is encountered without an error 
condition. 

Error Specifier — ERR 

An error specifier has the following form: 

ERR=s 

where s is an error return label of an executable statement that appears in the 
same program unit as the error specifier. 

If an error condition occurs during execution of an input/output statement with an 
error specifier, execution of the statement is terminated and the file position be- 
comes indeterminate. If the statement contains an input/output input/output 
status specifier, the status variable ios becomes defined with a processor depend- 
ent positive integer. Execution then continues at the statement labeled s. 
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End-of-File Specifier — END 

The form of an end-of-file specifier is: 

END=s 



where s is an end-of-file return label of an executable statement that appears in 
the same program unit as the end-of-file specifier. An end-of-file specifier may 
only be used on the cilist of a READ statement. 

If an end-of-file condition is encountered during the execution of a READ state- 
ment containing an end-of-file specifier and no error occurs, execution of the 
READ statement terminates. If the READ statement contains an input/output 
status specifier, the input/output status variable ios becomes defined with a proc- 
essor-dependent negative integer. Execution then continues at the statement la- 
beled s. 



Input/Output List — iolist 



This section describes the components of input/output list (iolist), which can be 
specified as elements of the I/O statements described in this chapter. 

An input/output list specifies the memory locations of the data to be transferred 
by the input/output statements READ, WRITE, and PRINT. 

If an array name is given as an input/output list item, the elements in the array are 
treated as though each element were explicitly specified in the input/output list in 
storage order. Note that the name of an assumed-size dummy array (i.e. an array 
declared with * for an upper bound) must not appear as an input/output list item. 



Input List 



An input list item can be one of the following: 

• A variable name 

• An array element name 

• A substring name 

• An array name 

• An implied-DO list containing any of the above and other im- 
plied-DO lists 

• An aggregate inference (a structured data item && defined by a \ : 

Examples of input lists are: 

READ (5, 3000 ,END=20Q0) X, Y ( J, K+3) ,C(2:4) 
READ(JFILE r REC=KNUM,ERR=1200)M, SLIST (M, 3) , cilist 
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Implied-DO Lists 



An output list item can be one of the following; 

• A variable name 

• An array element name 

• A substring name 

• An array name 

• Any expression, except a character expression involving con- 
catenation of an operand with a length specification of asterisk 
(*), unless the operand is the symbolic name of a constant 

• An implied-DO list containing any of the above and other im- 
plied-DO lists 

tegardless of how mmy aggregates or oiiwjrMat Ittaas am ptt^ ^^^ 

Note that a constant, an expression involving operators or function references, or 
an expression enclosed in parentheses may appear in an output list but not in an 
input list. 

An example of an output list is: 

WRITE(5,200,ERR=10) 'ANSWER IS' ,N, SQRT (X) +1 . 23 



An implied-DO list in a specification that follows the input/output list {iolist) in 
an input/output statement. The list permits the iteration of the statement as 
though it were contained within a DO loop. An implied-DO list has the form: 

(iolist,b=clfi2[ f e3]) 

where iolist is one or more valid names of the data to be acted upon; i is an itera- 
tion count; and el, e2, and eS are control parameters. See the description of the 
DO statement in Chapter 6 for a description of i 9 el, e2, and e3. 

The control variable i must not appear as an input list item in iolist. The list 
items in iolist are specified once for each iteration of the implied-DO list with 
the appropriate substitution of values for each occurrence of the control variable 



( 



Example 



The following statements write Hello World to the standard output 100 times: 

write (*,111) ('Hello World' , i=l, 100) 
111 format (lx,A) 
end 



( 
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Data Transfer Rules 



Data are transferred between records and items specified by the input/output list 
The list items are processed in the order in which they appear in the list. 

The following restrictions apply to data transfer operations: 

1 . An input list item must not contain any portion of the established format 
specification. 

2. If an internal file has been specified, an input/output list item must not be in 
the file or associated with the file. 

3. Each output list item must be defined prior to the transfer of that item. 

4. All values needed to determine which entities are specified by an input/out- 
put list item are determined at the beginning of the processing of that item. 

The following section discuss the rules specific to unformatted and formatted 
input/output. 



Unformatted Input/Output 



The execution of an unformatted input/output statement transfers data without 
editing between the current record and the items specified in the input/output list. 
Exactly one record is either read or written. 

For an unformatted input statement, the record must contain at least as many val- 
ues as the number of values required by the input list. The data types of the val- 
ues in the record must agree with the types of the corresponding items in the in- 
put list. Character data from an input record must have the same length attribute 
as the corresponding item in the input list. 

The following conventions apply to the execution of an unformatted output state- 
ment: 

1 . For direct access, the output list must not specify more values than can fit 
into a record. If the values specified by the output list do not fill the record, 
the remainder of the record is undefined. 

2. For sequential access, the output list defines the size of the output record. 

FORTRAN 77 allows unformatted data transfer only for external files and pro- 
hibits it for files connected for formatted input/output. 

Formatted Input/Output 

The execution of & formatted input/output statement transfers data with editing 
between the items specified by the input/output list and the file. The current 
record and possibly additional records are read or written. 

Each execution of a READ statement causes at least one record to be read, and 
the input list determines the amount of data to be transferred from the record. 
The position and form of that data is established by the corresponding format 
specification. 
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In a formatted output operation, each execution of the WRITE or PRINT state- 
ment causes at least one record to be written. The amount of data written to the 
specified unit is determined both by the output list and the format specification. 

When a repeatable edit descriptor in a format specification is encountered, a 
check is made for the existence of a corresponding item in the input/output list. 
If there is such an item, it transmits appropriately edited information between the 
item and the record, and then format control proceeds, If there is no correspond- 
ing item, format control terminates. Formatted input/output is explained in more 
detail in Chapter 9. 



c 
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Overview 



A format specification provides explicit editing information to the processor on 
the structure of a formatted data record. It is used with formatted input/output 
statements to allow conversion and data editing under program control. An aster- 
isk (*) used as a format identifier in an input/output statement specifies list-di- 
rected formatting. 

A format specification may be defined in a FORMAT statement or through the 
use of arrays, variables, or expressions of type character. During input, field de- 
scriptors specify the external data fields and establish correspondence between a 
data field and an input list item. During output, field descriptors are used to de- 
scribe how internal data is to be recorded on an external medium and to define a 
correspondence between an output list item and an external data field. 

This section describes the FORMAT statement, field descriptors, edit descriptors, 
and list-directed formatting. It also contains a discussion of carriage control 
characters for vertical control in printing formatted records. 

As extmmm to FORTRAN 77, the compUersup^maddMonalprocessorHde' 
pendent capabilities, which are described in Chapter 4 of $x$ FORTRAN Pro* 
gmmmefs Guide. 

Format specifications can be given in two ways: in FORMAT statements and as 
values of character arrays, character variables, and other character expressions. 



Format Stored as a Character Entity 



In a formatted input or output statement, the format identifier can be a character 
entity, provided its value has the syntax of a format specification, as detailed be- 
low, upon execution. This capability allows a character format specification to 
be read in during program execution. 

When the format identifier is a character array name, the format specification is a 
concatenation of all the elements in the array. When the format identifier is a 
character array element name, the format specification is only that element of the 
array. Therefore, format specifications read via a character array name may fill 
the whole array, while those read via a character array element name must fit in a 
single element of that array. 
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FORMAT Statement 



The FORMAT statement is a nonexecutable statement that defines a format 
specification. It has the following syntax: 

XX FORMAT fs 

where: 

xx is a statement number that is used as an identifier in a READ, WRITE, 
PRINT, or ASSIGN(label) statement. 

fs is a format specification (described in the next section). 



Format Specification 

The syntax of & format specification fs is: 

([flist]) 

where flist is a list of format specifiers of one of the following forms, separated 
by commas. 

[r]fd 

ed 

[r]fs 

where; 

r is a positive integer specifying the repeat count for the field descriptor or 
group of field descriptors. If r is omitted, the repeat count is assumed to be 
1. 

ffd is a repeatable edit descriptor, or afield descriptor. 

efd is a non-repeatable edit descriptor. 

fs is a format group and has the same form as a complete format specification 
(described above) except the flist must be non-empty (it must contain at least 
one format specifier). 

The comma used to separate the format specifiers in flist may be omitted as fol- 
lows: 

• Between a P edit descriptor and immediately following an F, E, 
D, or G edit descriptor (see P Edit Descriptor later in this chap- 
ter). 

• Before or after a slash edit descriptor (see Slash Editing later in 
this chapter). 

• Before or after a colon edit descriptor (see Colon Descriptor 
later in this chapter). 
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Repeatable Descriptors 

Some descriptors may be repeated, others may not. 
The repeatable descriptors are: 

Iw[ .m] 

Fw.d 
Ew.d[Ee] 
Dw.d 
Gw,d[Ee] 

where w and e are nonzero, unsigned integer constants; and d and m are un- 
signed integer constants. Their meanings are given in the section that describes 
the individual descriptors. 



The non-repeatable descriptors are: 



/ kP 


TRc 


SS 


nHh 


: Tc 


S 


BN 


'h. 


nX TLc 


SP 


BZ 


"h. 



where n and c are nonzero, unsigned integer constants; k is an optionally signed 
integer constant; and h is one of the characters capable of representation by the 
processor. 

Format Specifier Usage 

Each field descriptor corresponds to a particular data type input/output list item: 

• Integer/^/d descriptors - Iw, Iw.m, Ow, Zw 

• Real, Double Precision, and Complex field descriptors - Fw.d, 
Ew.d, Ew.dEe, Dw.d, Gw.d, Gw.dEe 

• Logical field descriptor - Lw 

• Character and Hollerith /te/d descriptors - A, Aw 

The terms r, c, n, d, m, e, and w must all be unsigned integer constants and, addi- 
tionally, r, c, n, e, and w must be non-zero, k is an optionally signed integer con- 
stant. Their meanings are given in the section that describes the individual field 
descriptors. 

r, the repeat specifier, can be used only with the I, O, Z, F, E, D, G, L, and A field 
descriptors and with format groups. 

The d is required in the F, E, D, and G field descriptors. Ee is optional in the E 
and G field descriptors and invalid in the others. 
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Use of named constants anywhere in a format specification is not allowed. 

Table 9,1 is an alphabetical summary and brief explanation of the field and edit 
descriptors; 



( 



Form 



AM 
BN 

BZ 

"Dw.d 

E w.d [E e] 

Fwi 

Qw.d 

wHc.. f c 

I w[m] 

Lw 

k? 
S 

SP 

SS 



Effect 



Transfers character or Hollerith values 

Specifies that embedded and trailing blanks 
in a numeric input field are to be ignored 

Specifies that embedded and trailing blanks in 
a numeric input field are to be treated as zeros 

Transfers real values (D exponent field 
indicator) 

Transfers real values (E exponent field indicator) 



Transfers real values 

Transfers real values: on input, acts like F descriptor 
On output, acts like E descriptor or F descriptor, 
depending on the magnitude of the value 

Transfers values between H edit descriptor and 
an external record 'h... ' (output only) 

Transfers decimal integer values 

Transfers logical values 

Transfers octal integer yalaes 

Scale factor for F, E, D, and G descriptors 

Restores the default specification for SP and SS 
(MIPS FORTRAN default is SS) 

Writes plus characters (+) for positive values in 
numeric output fields 

Suppresses plus characters (+) for positive values 
in numeric output fields 



( 



Table 9 J (1 of 2). Summary of Field and Edit Descriptors 



( 
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Table 9 J (2 of 2). Summary of Field and Edit Descriptors 



Form 


Effect 


Tc 


Specifies positional tabulation 


TLc 


Specifies relative tabulation (left) 


TRc 


Specifies relative tabulation (right) 


nX 


Specifies that n column positions are to be skipped 


^^^^^X 


'§^^^^^^^^^^^^^^^^^^^m^A 


: 


Terminates format control if the I/O list is exhausted 


/ 


Record terminator 


$ 


Specifies suppression of line terminator on output 
(ignored on input) 



Use of each of these field descriptors is described in the following sections. 

lillllllL ''; 3*^$ .' continue ||||||||||||^J 
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Good J& ^^^^^^^^^^^^^^^^^^^^B 

Good Mornin 



iSBS 



!*** 



■::*S 



||lf^ 

The same f&strictlom on size that apply to any other foitrmt ^ 

||||||| also apply to the valpe of 4 variable ftmaaj apples- 



( 
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General Rules for using FORMAT 

Because FORMAT allows exact specification of input and output format, it is 
necessarily complex. Some guidelines to its correct usage are outlined below. 

1 . A FORMAT statement must always be labeled. 

2. In a field descriptor such as rhv[.m] or nX, the terms r, w, and n must be un- 
signed integer constants greater than zero. The term m must be an unsigned 
integer constant whose value is greater than or equal to zero; they cannot be 
symbolic names of constants. The repeat count r can be omitted. 

3. In a field descriptor such as Fw.d, the term d must be an unsigned integer 
constant, d must be specified with F, E, D, and G field descriptors, even if d 
is zero. The decimal point is also required. Both w and d must be specified. 
In a field descriptor such as Ew.dEe, the term e must also be an unsigned 
non-zero integer constant. 

4. In an H edit descriptor such as riHcl c2.\ A x sub n, exactly n characters must 
follow the H. Any character in the processor character set can be used in this 
edit descriptor. 

5. In a scale factor of the form kP, k must be an optionally signed integer con- 
stant. The scale factor affects the F, E, D, and G field descriptors only. Once 
a scale factor is specified, it applies to all subsequent real field descriptors in 
that format specification until another scale factor appears; k must be zero 
(OP) to reinstate a scale factor of zero. A scale factor of OP is initially in ef- 
fect at the start of execution of each I/O statement. 

6. No repeat count r is permitted in BN, BZ, S, SS, SP, H, X, T, TR, TL, :,/,$, 
\ descriptors unless these descriptors are enclosed in parentheses and treated 
as & format group. 

7. If the associated I/O statement contains an I/O list, the format specification 
must contain at least one 1, 0, Z, F, E, D, G, L, or A field descriptor. 

8. A format specification in a character variable, character substring reference, 
character array element, character array, or character expression must be con- 
structed in the same way as a format specification in a FORMAT statement, 
including the opening and closing parentheses. Leading blanks are permit- 
ted, and any characters following the closing parenthesis are ignored. 

9. The first character in an output record generally contains carriage control 
information. See Output Rules Summary and Carriage Control later in 
this chapter. 

10. A slash (/) is both a format specifier list separator and a record terminator. 
See Slash Editing later in this chapter. 

11. During data transfers, the format specification is scanned from left to right. 
A repeat count, r, in front of a field descriptor or group of field descriptors 
enclosed in parentheses causes that descriptor or group of descriptors to be 
repeated r* before left to right scanning is continued. 
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Input Rules Summary 

There are certain guidelines that are applicable specifically on input: 

1 . A minus sign (-) must precede a negative value in an external field; a plus 
sign (+) is optional before a positive value. 

2. An external field under I field descriptor control must be in the form of an 
optionally signed integer constant, except that leading blanks are ignored and 
the interpretation of embedded or trailing blanks is determined by a combina- 
tion of any BLANK= specifier and any BN or BZ blank control that is cur- 
rently in effect (see BN Edit Descriptor and BZ Edit Descriptor later in 
this chapter). 

3. An external field under F, E, D, or G field descriptor control must be in the 
form of an optionally signed integer constant or a real constant, except that 
leading blanks are ignored and the interpretation of embedded or trailing 
blanks is determined by a combination of any BLANKS specifier and any 
BN or BZ blank control that is currently in effect (see BN Edit Descriptor 
and BZ Edit Descriptor later in this chapter). 

4. If an external field contains a decimal point, the actual size of the fractional 
part of the field, as indicated by that decimal point, overrides the d specifica- 
tion of the corresponding real field descriptor. 

5. If an external field contains an exponent, the current scale factor &P descrip- 
tor has no effect for the conversion of that field. 

6. The format specification together with the input list must not attempt to read 
beyond the end of a record. 

Output Rules Summary 

There are certain guidelines that are applicable specifically on output: 

1 . A format specification cannot specify more output characters than the value 
in the record length specifier (see OPEN). For example, a line printer record 
might be limited to no more than 133 characters, including the carriage con- 
trol character. 

2. The field width specification, w, and exponent digits, e, must be large enough 
to accommodate all characters that the data transfer can generate, including 
an algebraic sign, decimal point, and exponent. For example, the field width 
specification in an E field descriptor should be large enough to contain d + 6 
characters or d + e + 4 characters. 

3 . The first character of a record of a file intended to be printed is typically used 
for carriage control; it is not printed. The first character of such a record 
should be a space, 0, 1, or +. (See Carriage Control later in this chapter). 



c 
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Field and Edit Descriptors 

The format specifiers in a format specification consist of field, or repeatable de- 
scriptors, and other, non-repeatable edit descriptors. 

On input, the field descriptors specify what type of data items are to be expected 
in the external field so that data item values can be properly transferred to their 
internal (processor) representations. 

On output, the field descriptors specify what type of data items should be written 
to the external field. 

On input and output, the other, non-repeatable edit descriptors position the proc- 
essor pointer in the external field so that data items will be transferred properly. 
For instance, edit descriptors can specify that lines or positions in the external 
field be skipped or that data items can be repeatedly read (on input) or written 
(on output). 

The following sections describe each of the edit descriptors in detail. 

Field Descriptor Reference 

Numeric Field Descriptors 

The I, O, Z|l§ F, E, D, and G field descriptors described here are used for nu- 
meric editing. The P scale factor, also described, can alter the effect of F, E, D, 
and G field descriptors. 

Unless otherwise indicated, the following rules apply: 

1 . On input, these numeric field descriptors ignore leading blanks in the exter- 
nal field. If a BZ edit descriptor is in effect, embedded and trailing blanks 
are treated as zeros; otherwise, a BN edit descriptor is in effect and all em- 
bedded and trailing blanks are ignored. Either BZ or BN is initially in effect 
at the beginning of the input statement depending on the BLANK= specified 
(see OPEN). The default is BN. 

2. A plus sign (+) is produced on output only if SP is in effect; however, a mi- 
nus sign (-) is produced where applicable. When computing the field width 
for numeric descriptors, one character should be allowed for the sign, 
whether it is produced or not. 

3. For input with F, E, D, and G descriptors, a decimal point in the input field 
overrides the d specification, and an explicit exponent in the input field over- 
rides the current scale factor. 

4. For output, fields are right justified. If the field width is too small to repre- 
sent all required characters, asterisks are produced. This includes significant 
digits, sign, decimal point, and exponent. 
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Default Flew Descriptor t^arameters 



B. IX G. and A field descriptor. If you don't specify a value, the default values 
Ibe length n tot tfte A field descriptor, . 



( 



Field Descriptor 


Field Type 


w 


d e 


,Ji£lL,,,,, 


BYTE 


7 




illllllillllllll 


H^HHHHHHBHI 


? 




:§||||l!||||jjj 


1#TE;GSR*4, LOGICAL* 4 


flllllf 




Illllllillllllll 


REAL*'4 


tlllllti 




0,z 


REALMS 


23 ' 




Illllllillllllll 


REAL*16. 


44 




L 


LOGICAL 


2 




F,E,G r D 


REAL, GOHPLEX*8 


15 


illlllllilll 


F,E,G,D 


EEAL*8, COMPLEXES 


lllllll 


lIlllllIHB 


lllflllllllllll 


REAL*1€ • • 


42 


33 3 


$^MS3SI^ 


■ L0<3lCAL*l jtHHt 


llllllHl 




A 


LOGICAL* 2 , ISTEGER*2 


lllllll 




A 


LOOICAL*^ INTEGER* 4 


:||l||||| 




lililllliillll 


^^^^^^^^^^^H 


lllllll 




A 


;|||ffil||||||p:||||ll|lj 


llSilll 




K 


REAL*2€/ 


lillllll 




A 


CHARACTER* n 


n 





( 



I Field Descriptor 



The I field descriptor is used for conversion between an internal integer data item 
and an external decimal integer. It has the form: 



lw[,m] 



where: 



w 



is a nonzero, unsigned integer constant denoting the size of the 
external field, including blanks and a sign, if necessary. A minus 
sign (-) is always printed on output if the number is negative. If 
the number is positive, a plus sign (+) is printed only if SP is in 
effect. 



m is an unsigned integer constant denoting the minimum number of 
digits required on output, m is ignored on input. The value of m 
must not exceed w; if m is omitted, a value of 1 is assumed. 



c 
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In an input statement, the I field descriptor reads a field of w characters from 
the record, interprets it as an integer constant, and assigns the integer value to 
the corresponding I/O list item. The corresponding I/O list element must be of 
INTEGER olllililll data type. The external data must have the form of 
an integer constant; it must not contain a decimal point or exponent. 



If the first nonblank character of the external field is a minus sign, the field is 
treated as a negative value. If the first nonblank character is a plus sign, or if no 
sign appears in the field, the field is treated as a positive value. An all blank field 
is treated as a value of zero. 



Input Example: 



Format 


External Field 


Internal Value 


14 
13 
19 


3244 

-15 

213 


3244 

-15 

213 



In an output statement, the I field descriptor constructs an integer constant repre- 
senting the value of the corresponding I/O list item, and writes it to the record 
right-justified in an external field w characters long. If the value does not fill the 
field, leading blanks are inserted; if the value exceeds the field width, the entire 
field is filled with asterisks. If the value of the list item is negative, the field will 
have a minus sign as its leftmost, nonblank character. The term w must therefore 
be large enough to pro]vide for a minus sign, when necessary. If m is present, 
the external field consists of at least m digits, with leading zeros, if necessary. 

If m is zero, and the internal representation is zero, the external field is filled with 
blanks. 

Output Example: 



Format 


Internal Value 


External Field 


13 


311 


311 


14 


-311 


-311 


15 


417 


417 


12 


7782 


** 


13 


-213 


*** 


14.2 


1 


01 


14.4 


1 


0001 


14.0 


1 
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jlllllll 


ascriptoi 


has the form: 

lilll 




ill|I|||ll 


iiiii 


^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^H 






w is a nonzero, unsigned Integer constant denoting the size of the 




llllllil 


111111= 








m is an unsigned integer constant denoting the minimum ranker of 








digits required on output wis Ignored on Input The value ofm 




i:::i:::::::;;::::;:::::::i:i:;:j:i:;:::i:::j:;: 




must mi exceed w; if mis omitted, a value of lis assumed. 




llllllllll 






||||||||||||i 


Inar 
terec 

Inar 
the« 


nnput statement, the fields 

Jnput statement, the field descriptor reads w characters from the record; 
[iput field must have the following format; , 




"l-IIIISli 


Illllll 
Illllll 

|||§|$ 

lilll 


> . Optionalleading blanks 

► An optional plus or minus sign 




iiiiiiiiiiiliii 


Illllll 






|;;;|:;x;y;:|:K:;;;y::;S:-:;S: 


Illllll 


^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^B 



( 



( 



( 
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^^^^^^^^^^^^^^^^^^^^s^^^^^^^^^^^i^. 



iiiiiiiiiiiii 




M^^^^^^§^^MMMiM 


:||||^|^i|||i;l||; 


;ig|||lil|;|||p||||| 


<mTEGER*4) 


llllllllll 


-77 


-63 


fllllipli 


Illlgllllllll 


iliililllllllHlll 


lllllllllll 


l|ll|Il|||i!||||: 


65S3S 


iiiiiiiiii 


llllllllllllll 


iiililiiiiililll 



. * * The number 13 right Justified with leading seros inserted (if 
necessary), FORTRAN 77 insem leading blanks 

* If w is insufficient to contain all the digits mcemxymmpr&~ 
field is fiUed with asterisks. 
Output Example; 





iiiii^^Pi^ifi'iiiiiii 




lfj|^i||§l|||||i 


|||||ii||i|||||| 


||||li^|i||||^|||is 


020,2 


Silillllllli 


lllillilllllilllllllll 


llllllllll 


llllllilllllll 


iiiiiiiiiiiiiliiii 


llllllllll 


iiliilliilil 


*** 


llllfllH 


S3 


77 


O20.2 


• -2 


37777777776 



jijlfiiii^iiijii} 



form, Itiias tire fcn»; . 






&e output list item is interpreted as an unsigned Integer value. 
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» Optional leading felfinks; 

* At* optional plM or minm sip . 

* A seqwnc^^ffesdedxn.^1 digits (0 

A field that is entirely blank is trmed a$ the yalw zero, , 



WMmM 



lllll 
lllll 

lllll 

1111 



'fffffflWMWW 



i^iiiliilil 



lllll 

iBiii 
nil 



| ^ H; > Vw- W iwf M : i - '^ » i :i- rt ^' H ^<i'H;i H 4»;H:[: M ;l; 



liliiliiil 



4660 

iiiiiii 

lllll 



;|||||||i^|^|| 



IMili; 



1111111 

lliifli 

lilill 

111111 



Internal Value ONTEGER'4) 



11S : 
(III 

IB 
llll 



8 4^ ' MW i 'i'i 'iti'i'i ti11'i'n' i ^ l ;H ; (4i|'H;H) 



lllllllllillll 

lllllllllljli 

BllilSlllli 
llllllllllili 



C 



( 



F Field Descriptor 



The F field descriptor transfers real values. It has the form: 
Fw.d 



where: 

• is a nonzero, unsigned integer constant denoting field width. 

• is an unsigned integer constant denoting the number of digits in 
the fractional part. 

The corresponding I/O list element must be of REAL, DOUBLE PRECISION, or 
COMPLEX data type. 



( 
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In an input statement, the F field descriptor reads a field of w characters from the 
record and, after appropriate editing of leading, trailing, and embedded blanks, 
interprets it as an integer or a real constant, and assigns the real value to the cor- 
responding I/O list element. Refer to Real Types in Chapter 2 for more infor- 
mation. If the external field contains an exponent, the letter E may be omitted as 
long as the value of the exponent is a signed integer. If the first nonblank charac- 
ter of the external field is a minus sign, the field is treated as a negative value. If 
the first nonblank character is a plus sign, or if no sign appears in the field, the 
field is treated as a positive value. An all-blank field is treated as a value of zero. 

If the field contains neither a decimal point nor an exponent, it is treated as a real 
number in which the rightmost d digits are to the right of the decimal point, with 
leading zeros assumed if necessary. If the field contains an explicit decimal 
point, the location of that decimal point overrides the location specified by the 
value of d in the field descriptor. If the field contains a real exponent, the effect 
of any associated scale factor kP (see Scale Factor later in this chapter) is sup- 
pressed and the real exponent is used to establish the magnitude of the value in 
the input field before it is assigned to the list element. 

Input Example: 



Format 


External Field 


Internal Value 


F8.5 
F8.5 
F8.5 
F5.2 


123456789 
-1234.567 
12.34E+2 
1234567.89 


0.12345678E+03 
-0.123456E+04 
0.1234E+02 
0.12345E+03 



In an output statement, the F field descriptor constructs a basic real constant rep- 
resenting the value of the corresponding I/O list element, rounded to d decimal 
positions, and writes it to the record right-justified in an external field w charac- 
ters long. 

The term w must be large enough to include: 

• a minus sign for a negative value or a plus sign (when SP is in 
effect) for a positive value. 

• the decimal point 

• d digits to the right of the decimal 

If w is insufficiently large, the entire field width is filled with asterisks. There- 
fore, w must be d + 2. 
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Output Example: 



Format 


Internal Value 


External Field 


F8.5 


.12345678E+01 


1.23457 


F9.3 


.87654321E+04 


8765.432 


F2.1 


.2531E+02 


** 


F10.4 


.1234567E+02 


12.3457 


F5.2 


.123456E+03 


■kick-kick 


F5.2 


-.4E+00 


-0.40 



E Field Descriptor 



The E field descriptor transfers real values in exponential form. It has the form: 

Ew.d[Ee] 

where: 

w is a nonzero, unsigned integer constant denoting field width. 

d is an unsigned integer constant denoting the number of digits in 
the fractional part. 

e is a nonzero, unsigned integer constant denoting the number of 
digits in the exponent part. The e has no effect on input. 

The corresponding I/O list element must be of REAL, DOUBLE PRECISION, or 
COMPLEX data type. 

In an input statement, the E field descriptor interprets and assigns data in exactly 
the same way as the F field descriptor. 

Input Example: 



c 



Format 


External Field 


Internal Value 


E9.3 


" 654321E3" 


.654321E+06 


E12.4 


" 1234.56E-6" 


.123456E-02 


E15.3 


"12.3456789 


.123456789E+02 


E12.5 


"123.4567D+10" 


.1234567E+13 



Note that in the last example, the E field descriptor treats the D exponent field 
indicator the same as an E exponent indicator. 

In an output statement, the E field descriptor constructs a real constant represent- 
ing the value of the corresponding I/O list element, rounded to d decimal digits, 
and writes it to the record right-justified in an external field w characters long. If 
the value does not fill the field, leading spaces are inserted; if the value exceeds 
the field width, the entire field is filled with asterisks. 
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When an E field descriptor is used, data output is transferred in a standard form. 
This form consists of: 

• a minus sign for a negative value or a plus sign (when SP is in 
effect) for a positive value 

• digits to the left of the decimal point, if any, or an optional zero 

• a decimal point 

• d digits to the right of the decimal point 

• an e + 2 character exponent or a 4 character exponent 
The exponent has one of the following forms: 

Ew.d E + nn or E - nn if the value of the exponent in the range of 

-99 to +99 

Ew.d +nnn or -nnn if the value of the exponent is <= -99 or <= +99 

Ew.dEe E + nl n2...n sub e or E - nl n2...n sub e, where nl n2...ru is 
the magnitude of the exponent with leading zeros, if necessary 

The exponent field width specification is optional; if it is omitted, the exponent 
part is as shown above. If the exponent value is too large to be output with the 
given value e as shown in the third form above, the entire field is filled with as- 
terisks. 

The term w must be large enough to include: 

• a minus sign when necessary (plus signs when SP is in effect) 

• all significant digits to the left of the decimal point 

• a decimal point 

• d digits to the right of the decimal point 

• the exponent 

Given these limitations and assuming a P edit descriptor is in effect (see later in 
this chapter), w is > d + 7, or > d + e + 5 if e is present. 

Output Example: 



Format 


Internal Value 


External Field 


E9.2 


•987654321E+06 


.99E+06" 


E12.5 


.987644321E+06 


.98764E+06" 


E12.3 


.69E-5 


•690E-05" 


E10.3 


-.5555E+00 


" -.556E+00" 


E5.3 


.7214E+02 


"*****" 


E14.5E4 


-.1001E+01 


" -.10010E+0001" 


E14.3E6 


.123E-06 


" .123E-000003" 
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D Field Descriptor 



The D field descriptor transfers real values in exponential form. It has the form: 

Dw.d 

where: 

w is a nonzero, unsigned integer constant denoting field width. 

d is an unsigned integer constant denoting the number of digits in 
the fractional part. 

The corresponding I/O list element must be of REAL, POUBLE PRECISION, or 
COMPLEX data type. 

In an input statement, the D field descriptor interprets and assigns data in exactly 
the same way as the F field descriptor. 

Input Example: 



Format 


External Field 


Internal Value 


D10.2 
D10.2 
D15.3 


"12345 

" 123.45 

"123.4567891D+04" 


.12345E+03 

.12345E+03 
.1234567891E+07 



In an output statement, the D field descriptor has the same effect as the E field 
descriptor, except that the D exponent field indicator is used in place of the E in- 
dicator. 



c 



c 



c 
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Output Example: 



Format 


Internal Value 


External Field 


D14.3 

D23.12 

D9.6 


123D-04 

123456789123D+04 

14D+01 


.123D-04" 
.123456789123D+04" 



G Field Descriptor 



A G field descriptor is used for the conversion and editing of real data when the 
magnitude of the data is unknown beforehand. On output, the G field descriptor 
produces a field as with the F or E field descriptors, depending on the value. On 
input, the G field descriptor interprets and assigns data in exactly the same way 
as the F field descriptor. It has the form: 

Gw.d[Ee] 

where: 

w is a nonzero, unsigned integer constant denoting field width. 

d is an unsigned integer constant denoting the number of digits in 
the basic value part. 

e is a nonzero, unsigned integer constant denoting the number of 
digits in the exponent part. 

The corresponding I/O list element must be of REAL, DOUBLE PRECISION, or 
COMPLEX data type. 

In an input statement, the G field descriptor interprets and assigns data in exactly 
the same way as the F field descriptor. 
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In an output statement, the G field descriptor constructs a real constant represent- 
ing the value of the corresponding I/O list element rounded to d decimal digits, 
and writes it to the record right-justified in an external field w characters long. 
The form in which the value is written is a function of the magnitude of the value 
m, as described in Table 9.1. In the table, n is 4 if Ee was omitted from the G 
field descriptor, otherwise n is e + 2. 



Data Magnitude 


Effective Format 


m<0.1 

0.1 m<1.0 

1.0 m<10.0 

• 


E w.d [E e] 

F( w-n ).d, n (' ") 

F(u>-« ),(<*- 1), «(") 

• 


• 

10 " Sm<10" 
10 " <m<10 d 
m >10 d 


• 
• 

F( w-n).l, «(") 
F( w-n).0n{") 
E w.d [E e] 



Table 9.1. Effect of Data Magnitude on G Format Conventions, 
The term w must be large enough to include: 

• a minus sign for a negative value or a plus sign (when SP is in 
effect) for a positive value 

• a decimal point 

• d digits in the basic value part 

• either a 4-character or e + 2-character exponent part 
Given these limitations, w must therefore be > d + 7, or > d + e + 5. 
Output Example: 



c 



Format 


Internal Value 


External Field 


G13.6 


.1234567E-01 


" .123457E-01" 


G13.6 


-.12345678E00 


" -.123457 


G13.6 


.123456789E+01 


" 1.23457 


G13.6 


.1234567890E+02 


" 12.3457 


G13.6 


.12345678901E+03 


" 123.457 


G13.6 


-.123456789012E+04 


" -1234.57 


G13.6 


.1234567890123E+05 


" 12345.7 


G13.6 


.12345678901234E+06 


" 123457. 


G13.6 


-.123456789012345E+07 


" -.123457E+07" 



( 
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The following examples use the same values with an equivalent F field descrip- 
tor, for comparison purposes: 



P Edit Descriptor 



Format 


Internal Value 


External Field 


F13.6 


.1234567E-01 


.012346" 


F13.6 


-.12345678E00 


-.123457" 


F13.6 


.123456789E+01 


1.234568" 


F13.6 


.1234567890E+02 


12.345679" 


F13.6 


.12345678901E+03 


123.456789" 


F13.6 


-.123456789012E+Q4 


" -1234.567890" 


F13.6 


.1234567890123E+05 


" 12345.678901" 


F13.6 


.12345678901234E+06 


"123456.789012" 


F13.6 


-.123456789012345E+07 ' 


"*************" 



The P edit descriptor specifies a scale factor and has the form: 
kP 

where k is an optionally-signed integer constant, called the scale factor. 

A P edit descriptor can appear anywhere in a format specification, but must pre- 
cede the first field descriptor that is to be associated with it. For example: 

kPFw.d kPEw.d kFDw.d kPGw.d 

The value of k must not be greater than rf+1, where d is a number of digits in the 
Ew.d, Dw.d, or Gw.d output fields. 
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Scale Factor 



The scale factor, k, determines the appropriate editing as follows: 

® For input with F, E, D, and G editing (provided there is no expo- 
nent in the field) and F output editing, the magnitude represented 
by the external field equals the magnitude of the internal value 
multiplied by 10 k . 

• For input with F, E, D, and G editing containing a real exponent, 
the scale factor has no effect 

• For output with E and D editing, the basic value part is multi- 
plied by 10 k . 10 k and the real exponent is reduced by k. 

• For output with G editing, the scale factor has no effect unless 
the data to be edited is outside the range that permits F editing. 
If the use of E editing is required, the effect of the scale factor is 
the same as E output editing. (See Real Type in Chapter 2.) 

On input, if no exponent is given, the scale factor in any of the above field de- 
scriptors multiplies the data by 10 k and assigns it to the corresponding I/O list 
element. For example, a 2P scale factor multiplies an input value by ,01. A-2P 
scale factor multiplies an input value by 100. However, if the external field con- 
tains an explicit exponent, the scale factor has no effect. 



c 



Format 


External Field 


Internal Value 


3PE10.5 

3PE10.5 

-3PE10.5 


37.614" 
" 37.614E2" 
37.614" 


.37614E-01 
.37614E+04 
.37614E+05 



( 



On output, the effect of the scale factor depends on the type of field descriptor 
associated with it. 

For the F field descriptor, the value of the I/O list element is multiplied by 10 k 
before transfer to the external record: a positive scale factor moves the decimal 
point to the right, a negative scale factor moves the decimal point to the left. The 
value represented is 10 k multiplied by the internal value. 



( 
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For output with the E or D field descriptor, the basic real constant part of the ex- 
ternal field is multiplied by 10 k , and the exponent is reduced by k. The value 
represented is unchanged. A positive scale factor moves the decimal point to the 
right and decreases the exponent; a negative scale factor moves the decimal point 
to the left and increases the exponent. In summation, 



L Edit Descriptor 



k»0 



moves the decimal point n digits to the right 



k<0 moves the decimal point n digits to the left 

fc=0 leaves the decimal point unchanged 

Output Example: 



Format 


Internal Value 


External Field 


1PE12.3 

1PE12.2 

-1PE12.2 


-.270139E+03 
-.270139E+03 
-.270139E+03 


" 2.701E+02" 
2.70E+02" 
0.03E+04" 



On output, the effect of the scale factor for the G field descriptor is suspended if 
the magnitude of the data to be output is within the range permitting F editing, 
because the G field descriptor supplies its own scaling function. The G field de- 
scriptor functions as an E field descriptor if the magnitude of the data value is 
outside its range. In this case, the scale factor has the same effect as for the E 
field descriptor. 

On output under F field descriptor control, a scale factor actually alters the mag- 
nitude of the value represented, multiplying or dividing it by 10, On output, a 
scale factor under E, D, or G field descriptor control merely alters the form in 
which the value is represented. 

If you do not specify a scale factor with a field descriptor, a scale factor of zero is 
initially assumed at the beginning of the execution of the statement, Once a scale 
factor is specified, it applies to all subsequent F, E, D, and G field descriptors in 
the same format specification, unless another scale factor appears. A scale factor 
of zero can be reinstated only with an explicit OP specification. 



The L edit descriptor is used for logical data. The specified input/output list item 
must be of type LOGICAL. It has the form: 

Lw 

where w is a nonzero, unsigned integer constant denoting field width. 

For input, the field must consist of optional blanks, followed by an optional deci- 
mal point, followed by a T (for true) or F (for false). The T or F may be followed 
by additional characters that have no effect. The logical constants .TRUE, and 
.FALSE, are acceptable input forms. 
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For output, the field consists of w - 1 blanks followed by a T or an F, for true and 
false, respectively, according to the value of the internal data. 



Format 


Internal Value 


External Field 


L5 
LI 


.TRUE, 
.FALSE. 





TheLedit descriptor can also be used to process integer data items. All tion- 
mxo values are displayed m TRUE, and all ^eroyafttes as .FALSE, 



c 



A Edit Descriptor 



The A edit descriptor is used for editing of character or Hollerith data. 
A[w] 

where w is a nonzero, unsigned integer constant denoting the width, in number of 
characters, of the external data field. If w is omitted, the size of the I/O list item 
determines the length w. 

The corresponding I/O list item can be of any data type. If it is of character data 
type, character data is transmitted. If it is of any other data type, Hollerith data is 
transmitted. 

In an input statement, the A edit descriptor reads a field of w characters from the 
record without interpretation and assigns it to the corresponding I/O list item. 
The maximum number of characters that can be stored depends on the size of the 
I/O list item. For character I/O list elements, the size is the length of the charac- 
ter variable, character substring reference, or character array element. For nu- 
meric and logical I/O list elements, the size depends on the data type as follows: 



c 



I/O List Element 


Maximum Number 
of Characters 


LOGICAL* 1 


1 


LOGICAL* 2 


2 


LOGICAL* 4 


4 


INTEGER* 2 


2 


INTEGER* 4 


4 


REAL* 4 (REAL) 


4 


REAL* 8 (DOUBLE PRECISION) 


8 


COMPLEX* 8 (COMPLEX) 


8 


COMPLEX* 16 (DOUBLE CMPLEX) 


16 



( 
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If w is greater than the maximum number of characters that can be stored in the 
corresponding I/O list item, only the rightmost characters of the field are as- 
signed to that element. The leftmost excess characters are ignored. If w is less 
than the number of characters that can be stored, w characters are assigned to the 
list item, left-justified, and trailing blanks are added to fill it to its maximum size. 

Input Example: 



Format 


External Field 


Internal Value 


Representation 


A6 


"FACE #" 


"#" 


(CHARACTER*!) 


A6 


"FACE #" 


"E #" 


(CHARACTER'S) 


A6 


"FACE #" 


"FACE #" 


(CHARACTER* 6) 


A6 


"FACE #" 


"FACE # 


(CHARACTER'S) 


A6 


"FACE #" 


"#" 


(LOGICAL*!) 


A6 


"FACE #" 


"#" 


(INTEGER*2) 


A6 


"FACE #" 


"CE #" 


(REAL* 4) 


A6 


"FACE #" 


"FACE # 


(REAL* 8) 



In an output statement, the A field descriptor writes the contents of the corre- 
sponding I/O list item to the record as an external field w characters long. If w is 
greater than the list item size, the data appears in the field, right-justified, with 
leading blanks. If w is less than the list element, only the leftmost w characters 
from the I/O list item are transferred. 

Output Example: 



Format 


Internal Value 


External Field 


A6 
A6 
A6 


"GREEK" 

"FRENCH" 

"PORTUGUESE" 


" GREEK" 
"FRENCH" 
"PORTUG" 



Repeat Counts 



If you omit w in an A field descriptor, a default value is supplied based on the 
data type of the I/O list item. If it is of character type, the default value is the 
length of the I/O list element. If it is of numeric or logical data type, the default 
value is the maximum number of characters that can be stored in a variable of 
that data type as described for input. 

The I, 0, Z, F, E, D, G, L, and A field descriptors can be applied to a number of 
successive I/O list items by preceding the field descriptor with an unsigned inte- 
ger constant, called the repeat count. For example, a specification of the form 
4F5.2 is equivalent to F5.2, F5.2, F5.2, F5.2. 
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Enclosing a group of field descriptors in parentheses, and preceding the enclosed 
group with a repeat count, repeats the entire group. Thus, 2(I6,F8.4) is equiva- 
lent to I6,F8.4,I6,F8.4. 



H Field Descriptor 



The H field descriptor is used for output of character literal data. It has the form: 

riHxxx..Jc 

where: 

n is an unsigned integer constant denoting the number of charac- 
ters that comprise the character literal. 

x comprises the character literal and consists of n characters, in- 
cluding blanks. 

In an output statement, the H field descriptor writes the n characters following 
the letter H from the field descriptor to the record as an external field n characters 
long The H field descriptor does not correspond to an output list item. 

Output Example: 



Specification 


External Field 


6HAb CdE 

1H9 

4H'a2' 


Ab CdE 

9 

'a2' 



( 



An H field descriptor must not be encountered by a READ statement. 
Character Edit Descriptor 

A character edit descriptor has one of the following forms: 

'XI X2...Xn' 
XlX2...Xn 

where 

XlX2...Xn 

are members of the FORTRAN character set forming a valid character literal. 
The width of the output field is the number of characters contained in the 
character literal, excluding the enclosing apostrophes or quotation marks. 
The character edit descriptor does not correspond to an output list item. 
Within a character edit descriptor delimited by apostrophes, an apostrophe is 
represented by two successive apostrophe characters. 

Within a character edit descriptor delimited by quotation marks, a quotation mark 
is represented by two successive quotation mark characters. 
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Example: 



^^^^^^^^B 



Output Specification 


External Field 


'SUM =' 


SUM = 


.SUM = 


SUM * 


.DON'T 


DON' T 


'HERE"S THE ANSWER' 


HERE'S THE ANSWER 


'HE SAID, "YES"' 


HE SAID, "YES" 


.HE SAID, ""YES"" 


HE SAID, "YES" 



A character edit descriptor must not be encountered by a REAP statement 



the corresponding input list item must be type integer, .Interpretation of ihe Q 
® iJeftaed witix the value: . ' ^^^^^^^^^K 



Wii 



max (Ze^ ||l|||i||il 1$ 



Input Example: 

INTEGER N 

CHARACTER LINE * 80 
READ (5, 100) N, LINE (1:N) 
100 FORMAT (Q, A) 
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Chapter 9 

Edit Descriptor Reference 

After each I, 0, Z, F, E, D, G, L, A, H, or character edit descriptor is processed, 
the file is positioned after the last character read or written in the current record. 

The X, T, TL, and TR descriptors specify the position at which the next character 
will be transmitted to or from the record. They do not change any characters in 
the record already written, or by themselves affect the length of the record. 

If characters are transmitted to positions at or after the position specified by a T, 
TL, TR, or X edit descriptor, positions skipped and not previously filled are filled 
with blanks. 

The X edit descriptor specifies a position forward (to the right) of the current po- 
sition. It is used to skip characters on the external medium for input and output. 
It has the fonn: 

nX 

where n is an unsigned, nonzero integer constant denoting the number of charac- 
ters to be skipped. 

The T edit descriptor specifies an absolute position in an input or output record. 
It has the form: 

where n indicates the next character transferred to or from the record is the nth 
character of the record. 

TL Edit Descriptor 

The TL edit descriptor specifies a position to the left of the current position. It 
has the form: 

TLn 

wh^re n indicates that the next character to be transferred from or to the record is 
the nth character to the left of the current character. The value of n must be 
greater than or equal to one. 

If n is the current character position, then the first character in the record is 
specified. 

TR Edit Descriptor 

The TR edit descriptor specifies a position to the right of the current position. It 
has the form: 

TRn 

where n indicates that the next character to be transferred from or to a record is a 
nth character to the right of the current character. The value of n must be greater 
than or equal to one. 
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BN Edit Descriptor 

The BN edit descriptor causes the processor to ignore blank characters in a nu- 
meric input field and to right-justify remaining characters, as though the blanks 
that were ignored were leading blanks. It has the form: 

BN 

The BN descriptor affects only I, O, Z, F, E, D, and G editing, and then only on 
input fields. 

BZ Edit Descriptor 

The BZ edit descriptor causes the processor to treat all the embedded and trailing 
blank characters it encounters within a numeric input field as zeros. It has the 
form: 

BZ 

The BZ descriptor affects only I, O, Z, F, E, D, and G editing, and then only on 
input fields. 

SP Edit Descriptor 

The SP edit descriptor specifies that a plus sign should be inserted in any charac- 
ter position that normally contains an optional plus sign and whose actual value 
is>0. It has the form: 

SP 

The SP descriptor affects only I, F, E, D, and G editing, and then only on output 
fields. 

SS Edit Descriptor 

The SS edit descriptor specifies that a plus sign should not be inserted in any 
character position that normally contains an optional plus sign. It has the form: 

SS 

The SS descriptor affects only I, F, E, D, and G editing, and then only on output 
fields. 

S Edit Descriptor 

The S edit descriptor resets the option of inserting plus characters (+) in numeric 
output fields to the processor default. It has the form: 

S 

The S descriptor counters the action of either the SP or SS descriptor by restoring 
to the processor the discretion of producing plus characters on an optional basis. 
The default is to SS processing: the optional plus sign is not inserted when S is 
in effect. 

The S descriptor affects only I, F, E, D, and G editing, and then only on output 
fields. 

Colon Descriptor 

The colon character (:) in a format specification terminates format control if no 
more items are in the I/O list. The : descriptor has no effect if I/O list items re- 
main. 
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■^■MMM 



ltse$ edit descriptor oppresses ifte teimf rial linetuark character at the end of 
tbec^iteut output record. Jthasthetora; , 



Output Example: 



PRINT 100/ 


f Enter a number:' 


100 FORMAT (IX, 


A, $) 


READ *, X 





Complex Data Editing 



A complex value consists of an ordered pair of real values. If an F, E, D, or G 
field descriptor is encountered and the next I/O list item is complex, then the de- 
scriptor is used to edit the real part of the complex item. The next field descriptor 
is used to edit the imaginary part. 

If an A field descriptor is encountered on input or output, and the next input/out- 
put list item is complex, then the A field descriptor is used to translate Hollerith 
data to or from the external field and the entire complex list item. The real and 
imaginary parts together are treated as a single input/output list item. 

In an input statement with F, E, D, or G field descriptors in effect, the two suc- 
cessive fields are read and assigned to a complex I/O list element as its real and 
imaginary parts, respectively. 



Input Example: 




Format 


External Field 


Internal Value 


F8.5 f F8.5 
E9.1 f F9.3 


"1234567812345. 67" 
"734.432E8123456789" 


(.12345678E+03, .1234567E+05) 
(.734432E+11, ..123456789E+06) 



In an output statement with F, E, D, or G field descriptors in effect, the two parts 
of a complex value are transferred under the control of successive field descrip- 
tors. The two parts are transferred consecutively, without punctuation or spacing, 
unless the format specification states otherwise. 
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Output Example: 




Format 


Internal Value 


External Field 


2F8.5 

E9.2,' , ',E5.3 


(.23547188E+01, .3456732E+0X) 
(.47587222E+05, .56123E+02) 


" 2.35472 3.45673" 
" 0,48E+06 , ***** " 



Carriage Control 



Slash Editing 



A formatted record can contain a prescribed carriage control character as the first 
character of the record. The carriage control character is the first character of the 
record and determines vertical spacing in printing when the CARR- 
IAGECONTROL keyword of the OPEN statement is set to FORTRAN (the de^ 
fault). The carriage control characters are: 



Character 



Blank 

1 
+ 



iiiippi 



Effect on Spacing 



Single space 

DoubleSpace 

To first line of next page (page eject) 

No vertical spacing (overprint next line) 







The carriage control character is not printed and the remaining characters, if any, 
are printed in one line beginning at the left margin. If there are no characters in 
the record, the vertical spacing is one line and no characters will be printed in 
that line. 



A slash (/) placed in a format specification terminates input or output for the cur- 
rent record and initiates a new record. For example: 

WRITE (6,40) K,L,M,N,0,P 
40 FORMAT (316. 6/I6,2F8 .4) 

is equivalent to 

WRITE (6,40) K,L,M 

40 FORMAT (316.6) 

WRITE (6,50) N,Q,P 

50 FORMAT (J6,2F8.4) 

On input from a sequential access file, the current portion of the remaining record 
is skipped, a new record is read, and the current position is set to the first charac- 
ter of the record, n slashes in succession cause n-\ records to be skipped. 



Part II: FORTRAN Language Reference 



9-31 



Chapter 9 



On output to a file connected for sequential access, a new record is created and 
becomes the last and current record of the file. Also, n slashes in succession 
causes n-1 blank lines to be generated. 

Through the use of two or more successive slashes in a format specification, en- 
tire records can be skipped for input and records containing no characters can be 
generated for output If the file is an internal file, or a file connected for direct 
access, skipped records are filled with blank characters on output. 

n slashes at the beginning or end of a format specification result in n skipped or 
blank records. On input and output from a direct access file, the record number 
is increased by one and the file is positioned at the beginning of the record that 
has that record number. This record becomes the current record. 

Interaction Between I/O List and Format 

The beginning of formatted data transfer using a format specification initiates 
format control Each action of format control depends on information jointly 
provided by: 

• the next descriptor contained in the format specification, and 

• the next item in the input/output list, if one exists. 

If an input/output list specifies at least one list item, at least one repeatahle de- 
scriptor must exist in the format specification. Note that an empty format speci- 
fication of the form ( ) may be used only if no list items are specified; in this 
case, one input record is skipped or one output record containing no characters is 
written. 

Except for a field descriptor preceded by a repeat specification, r ed 9 and a format 
specification preceded by a repeat specification, r (flisi), a format specification is 
interpreted from left to right (see Repeat Counts). Note that an omitted repeat 
specification is treated the same as a repeat specification whose value is one. 

To each repeatable field descriptor interpreted in a format specification, there 
corresponds one item specified by the input/output list, except that a list item of 
type complex is treated as two real items when an F, E, D, or G field descriptor is 
encountered. To each P,X, T, TL, TR, S, SP, SS, H, BN, BZ, slash (/), colon (:), 
dollar sign ($), or character edit descriptor, there is no corresponding item speci- 
fied by the input/output list, and format control communicates information di- 
rectly with the record. 

Whenever format control encounters a repeatahle edit descriptor in a format 
specification, it determines whether there is a next item in the input/output list. If 
there is such an item, it transmits appropriately edited information between the 
item and the record, and then format control proceeds. If there is no next item, 
format control terminates. 

If format control encounters the rightmost parenthesis of a complete format 
specification and no items remain in the list, format control terminates. How- 
ever, if there are more items in the list, the file is positioned at the beginning of 
the next record, and format control then reverts to the beginning of the format 
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specification terminated by the last preceding right parenthesis ()). If there is no 
such preceding right parenthesis ()), format control reverts to the first left paren- 
thesis (0 of the format specification. If such reversion occurs, the reused portion 
of the format specification must contain at least one repeatahle edit descriptor. 
If format control reverts to a parenthesis that is preceded by a repeat specifica- 
tion, the repeat specification is reused. Reversion of format control, of itself, has 
no effect on the scale factor (see the Scale Factor description in the P Edit sec- 
tion of this chapter), the S, SP, or SS edit descriptor sign control, or the BN or 
BZ edit descriptor blank control. 



List-Directed Formatting 



List-directed formatting allows formatted input and output without specifying a 
format specification. An asterisk (*) is used as a format identifier to invoke a 
list-directed format. 

mlm for list-directed external input/output and internal input/output both wgply 



List-Directed input 



The characters in one or more list-directed records form a sequence of values 
and value separators. Each value is either a constant, a null value (see Note 5 
below), or has one of the following forms: 



where r is a nonzero, unsigned integer constant denoting the number of succes- 
sive appearances of c or null values and c is a constant. 

The r* form is equivalent to r successive null values. Neither form may contain 
embedded blanks, except where permitted within the constant c. 

Data values may be separated by one of the following value separators: 

• A comma optionally preceded and followed by one or more con- 
tiguous blanks. 

• A slash (/) optionally preceded and followed by one or more 
contiguous blanks. A slash encountered by a list-directed input 
statement ends the execution of the input statement after assign- 
ment of the previous value, if any; any remaining list items are 
treated as if null values were supplied. A slash is not used as a 
separator on output. 

• One or more contiguous blanks between two constants or follow- 
ing the last constant. Blanks used in the following manner are 
not treated as part of any value separator in a list-directed input 
record: 

o Blanks within a character constant 
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o Embedded blanks surrounding the real or imaginary 
part of a complex constant 

o Leading blanks in the first record read by each exe- 
cution of a list-directed input statement, unless im- 
mediately followed by a slash or comma 

The end of a record has the effect of a blank, except when it appears within a 
character constant. Two or more consecutive blanks are treated as a single blank, 
unless they occur within a character constant. 

There are three differences between the input forms acceptable to format 
specifiers for a data type and those used for list-directed formatting. A data 
value must have the same type as the list item to which it corresponds. Blanks 
are not interpreted as zeros. Embedded blanks are only allowed in constants of 
character or complex type. 

Rules governing input forms of list items for list-directed formatting are: 

1 . For data of type real or double precision, the input form is the same as a nu- 
meric input field for F-editing that has no fractional part, unless a decimal 
point appears within the field. 

2. For data of type complex, the input form consists of an ordered pair of nu- 
meric constants separated by a comma and enclosed in a pair of parentheses. 
The first numeric constant is the real part of the complex value, while the 
second constant is the imaginary part. Each of the constants representing the 
real and imaginary parts may be preceded or followed by blanks. The end of 
a record may occur between the real part and the comma or between the 
comma and the imaginary part. 

3. For data of type logical, the input form must not include either slashes or 
commas among the optional characters allowed for L-editing. 

4. For data of type character, the input form is a character constant: a nonempty 
string of characters enclosed in apostrophes or quotation marks. When apos- 
trophes are used as the character constant delimiter, each apostrophe within 
the apostrophes is represented by a pair of apostrophes without an interven- 
ing blank or end of record. 

When quotation marks are used as the character constant delimiter, each quo- 
tation mark within the quotation marks is represented by a pair of quotation 
marks without an intervening blank or end of record. Character constants 
may be continued on as many records as needed. Constants are assigned to 
list items as in character assignment statements. 

5 A null value is specified by two successive value separators, by the r* form, 
or by not having any characters before the first value separator in the first 
record read by the execution of the list-directed statement. A null value has 
no effect on the corresponding list item. A single null value may represent 
an entire complex constant but may not be used as either the real or imagi- 
nary part alone, 
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llllllitji© Held lengths given in the input st3t^xi^nt> F0r exi^mpl^ 

(110, f20.10,i4) 

-345, .05e~3,12 

List-Directed Output 

The form of the values produced is the same as that required for input, except as 
noted below: 

1 . Logical output constants are T for the value true and F for the value false. 

2. Integer output constants are produced as for an Iw edit descriptor, where w 
depends on whether the list item i^n^SS^^nS^SSn^i 

3. For complex constants, the end of a record will occur between the comma 
and the imaginary part only if the entire constant is as long as, or longer than, 
an entire record. 

4. Character constants produced are not delimited by apostrophes or quotation 
marks, are not preceded or followed by a value separator, and have each in- 
ternal apostrophe represented externally by one apostrophe and each internal 
quotation mark represented by one quotation mark. A blank character for 
carriage control is inserted at the beginning of a record containing the con- 
tinuation of a character constant. 

5. Slashes and null values are not produced but each record begins with a blank 
character to provide carriage control if the record is printed. 

6. Two non-character values in succession in the same record will be separated 
by a value separator consisting of one or more blanks. No value separator is 
produced before or after a character value. 
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Functions and 
Subprograms 



This chapter is divided into the following major sections: 

• Statement Functions, which gives the syntax and rules for defin- 
ing statement functions. 



• 



Overview 



Parameter Passing, which gives general rules in passing parame- 
ters to functions and subprograms. 

Function and Subroutine Programs, which gives rules for writing 
and using function and subroutine subprograms. 

The syntax and rules for the FUNCTION, SUBROUTINE, and 
ENTRY statements, used to specify function and subroutine sub- 
programs. 



Functions and subprograms are program units that receive control when refer- 
enced or called by a statement in a main program or another subprogram. A sub- 
program is either written by the user or supplied with FORTRAN compiler. 
This chapter discusses user-written subprograms; compiler-supplied functions 
and subroutines are discussed in Appendix A. 

There are three types of program units: 

• statement functions, which consist of a single arithmetic state- 
ment defined within the main program unit or a subprogram. 

• function subprograms, which consist of one or more statements 
defined external to the main program unit. It is invoked when 
referenced as a primary in an expression contained in another 
program unit. 

• subroutine subprograms, which consist of one or more program 
statements defined external to the main program unit. It is in- 
voked when referenced in a CALL (Chapter 6) statement in an- 
other program unit. 



Part II: FORTRAN Language Reference 1 0-1 



Chapter 10 



Statement Functions 



A statement function definition is similar in form to an arithmetic, logical, or 
character assignment statement. The name of a statement function is local to the 
program unit in which it is defined. A statement function definition must appear 
only after the specification statements and before the first executable statement of 
the program unit in which it appears. 

Defining a Statement Function 

A statement function statement has the form: 

fiin(ld[,d\...]) = e 
where: 

fun is a symbolic name of the function, 

d is a dummy argument. 

e is an expression. 

Each dummy argument d is a variable name called a statement function dummy 
argument. The statement function dummy argument list indicates the order, 
number, and type of arguments for the statement function. All arguments need 
not have the same data type. A specific dummy argument may appear only once 
in the list. A variable name that serves as a dummy argument can also be the 
name of a local variable or common block in the same program unit. 

Each primary of the expression e may include: 

• Constants 

• Symbolic names of constants 

• Variable references 

• Array element references 

• Library function references 

• Reference to other statement functions 

• Function subprogram references 

• Dummy subprogram references 

• An expression composed of the above forms and enclosed in pa- 
rentheses 

If a statement function dummy argument name is the same as the name of an- 
other entity, the appearance of that name in the expression of a statement func- 
tion statement is a reference to the statement function dummy argument. A 
dummy argument that appears in a FUNCTION or SUBROUTINE statement 
may be referenced in the expression of a statement function statement with the 
subprogram. 
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A dummy argument that appears in an ENTRY statement may be referenced in 
the expression of the statement function statement only if the dummy argument 
name appears in a FUNCTION, SUBROUTINE, or ENTRY statement preceding 
the statement function definition. 



Referencing a Statement Function 



A statement function is referenced by using its name with actual arguments, if 
any, enclosed in parentheses. The form of a statement function reference is: 

fun([explexp]...]) 

where: 

fun is a statement function name. 

exp is an expression. 

Operational Conventions and Restrictions 

The expressions must agree in order, number, and type with the corresponding 
dummy arguments. The expressions may be any expression except a character 
expression involving concatenation in which the length attribute of one of the 
operands is specified with an asterisk. 

Execution of a statement function reference results in: 

• Evaluation of actual arguments exp that are expressions. 

• Association of actual arguments with their corresponding 
dummy arguments. 

• Evaluation of the expression e in the statement function defini- 
tion. 

• Type-conversion of the resulting value to the data type of the 
function, if necessary. This value is returned as the value of the 
statement function reference. 

• A statement function may be referenced only in the program unit 
that contains its definition. A statement function can reference 
another statement function that has been defined prior to the ref- 
erencing function, but not one which is defined after the refer- 
encing function. 

• A statement function name is local to the program unit, and must 
not be used as the name of any other entity in the program unit 
except the name of a common block. 

• The symbolic name used to identify a statement function must 
not appear as a symbolic name in any specification statement 
except in a type-statement (to specify the type of the function) or 
as the name of a common block in the same program unit. 
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A dummy argument of a statement function must not be rede- 
fined or become undefined through a function subprogram refer- 
ence in the expression of a statement function statement. 

The symbolic name of a statement function can not be an actual 
argument, and must not appear in an EXTERNAL statement, 

A statement function statement in a function subprogram must 
not contain a function reference to the name of an entry to the 
function subprogram. 

The length specification of a statement function dummy argu- 
ment of type character must be an integer constant. 



Parameter Passing 



Dummy Arguments 



Dummy arguments are used in function subprograms, subroutine programs, and 
statement functions to indicate the types of actual arguments and whether each 
argument is a single value, an array of values, a subprogram, or a statement label. 
Dummy argument names must not appear in EQUIVALENCE, DATA, PA- 
RAMETER, SAVE, INTRINSIC, or COMMON statements, except as common 
block names. Dummy argument names must not be the same as the subprogram 
name in FUNCTION, SUBROUTINE, ENTRY, or statement function statements 
in the same program unit. 

Actual arguments are the items which are given in the call to the function. Ac- 
tual arguments are bound to the corresponding dummy arguments when the sub- 
program call is reached. Actual arguments can change with each call to the sub- 
program. Of course, the types of the paired actual argument and dummy argu- 
ment must match. The types do not have to match if the actual argument is a 
subroutine name or an alternate return specifier. 

When a function or a subroutine reference is executed, an association is estab- 
lished between the corresponding dummy and actual arguments. The first 
dummy argument becomes associated with the first actual argument, the second 
dummy argument becomes associated with the second actual argument, and so 
on. 

An array can be passed to a function or subroutine as an actual argument if the 
corresponding dummy argument is also an array declared in a DIMENSION or 
type statement, but not in a COMMON statement. The size of the array in the 
calling program unit must be smaller than or equal to the size of the correspond- 
ing dummy array in the subprogram. The array in the function or subroutine may 
also have adjustable dimensions. 



c 



( 



c 
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Built-in Functions 



Will! 



global iuse. 



Slll^^ 



II1I1I 



lliiliiil 



liiiii 



The %^FbuiIt«-mftmctioit passes a& argument by referenceut has Jhe syntax: 
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Function and Subroutine Subprograms 



A function subprogram consists of a FUNCTION statement followed by a pro- 
gram body that terminates with an END statement and has the following charac- 
teristics: 

•■ it is defined external to the main program unit 

• it is referenced as a primary in an expression contained in an- 
other program unit 

• it is considered part of the calling program. 

A FORTRAN program can call a subroutine subprogram written in any language 
supported by the RISCompiler System. (See Chapter 3 of the FORTRAN Pro- 
grammer's Guide for information on writing FORTRAN programs that interact 
with programs written in other languages.) 

A subroutine subprogram consists of a SUBROUTINE statement (described in 
this chapter), followed by a program body that terminates with an END statement 
(Chapter 6), and is defined external to the main program. 



Referencing Functions and Subroutines 



A function subprogram is referenced as a primary in an expression while a sub- 
routine subprogram is referenced with a CALL statement (Chapter 6) contained 
in another program. Reference to a function subprogram has the form: 

fun([ala]...]) 

where fun is a symbolic name of the function subprogram and a is an actual argu- 
ment. 

If fun is of type character, then its length must not have been specified with an 
asterisk (*) in the calling subprogram. 
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The actual arguments comprise an argument list and must agree in order, number, 
and type with the corresponding dummy arguments in the referenced function or 
subroutine. An actual argument in a function reference must be one of the fol- 
lowing: 

• An expression, except a character expression, involving concate- 
nation of an operand whose length is specified by an asterisk 

• An array name 

• An intrinsic function name 

• An external function or subroutine name 
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• A dummy function or subroutine name 

An actual argument may be a dummy argument that appears in a dummy argu- 
ment list within the subprogram containing the reference. 

The use of a dummy name allows actual names to be passed through several lev- 
els of program units. 

If a Hollerith constant is used as an actual argument in a CALL statement, the 
corresponding dummy argument must not be a dummy array and must be of 
arithmetic or logical data type. 

The same rules apply to the actual arguments in a subroutine reference, except 
that in addition to the forms described above, the actual dummy argument of a 
subroutine may be an alternate return specifier. An alternate return specifier has 
the form *s, where s is the statement label of an executable statement appearing 
in the same program unit as the CALL statement. 

For example: 

SUBROUTINE MAXX(A, B, *> *, C) 

The actual argument list passed in the CALL must include alternate return argu- 
ments in the corresponding positions of the form *s. The value specified for s 
must be the label of an executable statement in the program unit that issued the 
call. 

Note that the use of a subroutine name or an alternate return specifier as an actual 
argument is an exception to the rule requiring agreement of type. If an external 
function or subroutine name or a dummy name is used as an actual argument, the 
name must appear in an EXTERNAL statement. If an intrinsic name is used as 
an actual argument, the name must appear in an INTRINSIC statement and the 
name must be one of those listed in Appendix A as a specific name. It must not 
be one of the intrinsics for type conversion, for choosing the largest or smallest 
value, or for lexical relationship. 



Executing Functions and Subroutines 



Execution of an reference to a function subprogram and subroutine subprogram 
results in: 

• Evaluation of expressions that constitute actual arguments 

• Association of actual arguments from the calling program unit 
with the corresponding dummy arguments in the subprogram 

• Execution of the statements comprising the subprogram based on 
the execution control sequence of the program unit 

• Return of program control to the calling program unit when 
either a RETURN statement is encountered or the execution con- 
trol flows into the END statement 
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The name of a function subprogram must appear as a variable at least once in the _ 

subprogram and must be defined at least once during each subprogram execution. f 

Once the variable is defined, it may be referenced elsewhere in the subprogram 
and become redefined. When program control is returned to the calling program, 
it is this value that is returned as the value of the function reference. If this vari- 
able is a character variable with a length specified by an asterisk, it may not ap- 
pear as an operand in a concatenation operation, but may be defined in an assign- 
ment statement. 

A subroutine does not return an explicit value to the point of invocation in the 
calling program unit. However, the subroutine and the function, as well, can re- 
turn values to the calling program unit by defining their (lummy arguments dur- 
ing execution. 



c 



( 
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FUNCTION 



Use 



Syntax 



Rules of Use 



First statement of a function subprogram; specifies the symbolic name of the 
function and its type. 



[typ] FUNCTION fun [*len] 

where: 

typ optionally specifies the data type of the function name, which determines 
the value returned to the calling program. The following forms for typ 
are allowed: 



llllllllll 
lilillllll 



DOUBLE PRECIS ION LOQICAL^ v; 
.COMPLEX I|pl|l||l|| 



liiiilin 
lliiilll 



lilillllll 

"bODBLE"" COMPLEX 



CHARACTER [*len] 



fun is a symbolic name of the function subprogram in which the FUNCTION 
statement appears. 

w is a dummy argument and may be a variable name, array name, or 
dummy subprogram name. 



1 . A FUNCTION statement must appear only as the first statement of a func- 
tion subprogram. 

2. The type specification may be omitted from the FUNCTION statement and 
the function name may be specified in a type statement in the same program 
unit. If neither of these options is used, the function is implicitly typed. 

3. The symbolic name of a function is a global name and must not be the same 
as any other global or local name, except a variable name, in the function 
subprogram. 
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BlIliPHs^SililiiPi^^^^^^Bllll^^^^Bli^^^^? 



( 



FUNCTION 

4. If the function type is specified in the FUNCTION statement, the function 
name must not appear in a type statement. 

5. In the type specification CHARACTER, len may have any of the forms al- 
lowed in a CHARACTER statement, except that an integer constant expres- 
sion must not include the symbolic name of a constant. If the name of the 
function is type character, then each entry name in the function subprogram 
must be of type character. If the length is declared as an asterisk, all such 
entries must have a length declared with an asterisk. 

6. A function specified as a subprogram may be referenced within any other 
subprogram or the main program of the executable program. 



1 . A function subprogram must not contain a BLOCK DATA, SUBROUTINE, 
or PROGRAM statement. 

2. A function name must not have its type explicitly specified more than once in 
a program unit. 

3. In a function subprogram, a dummy argument name must not appear in an 
EQUIVALENCE, PARAMETER, SAVE, INTRINSIC, DATA, or COM- ^ 
MON statement, except as a common block name. I 

4. A character dummy argument with a length specified as an asterisk must not 
appear as an operand for concatenation, except in a character assignment 
statement. 



c 
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SUBROUTINE 



Use 



Syntax 



Rules of Use 



Restrictions 



First statement of a subroutine subprogram. 



SUBROUTINE sub [ ( [d [ , d] . . . ] ) ] 



where sub is a symbolic name of the subroutine program unit and d is a dummy 
argument and may be a variable name, array name, dummy subprogram name, or 
an asterisk. The asterisk denotes an alternate return. 



1 . A SUBROUTINE statement must be the first statement of a subroutine sub- 
program. 

2. If there are no dummy arguments, either of the following forms may be used: 



SUBROUTINE sub 
SUBROUTINE sub() 

3. One or more dummy arguments may become defined or redefined to return 
results. 

4. The symbolic name of a subroutine is global and must not be the same as any 
other global or local name in the program unit. 




1 . A subroutine subprogram must not contain a BLOCK DATA, FUNCTION, 
or PROGRAM statement. 

2. In a subroutine, a dummy argument name is local to the program unit and 
must not appear in an EQUIVALENCE, SAVE, INTRINSIC, DATA, or 
COMMON statement, except as a common block name. 

3. A character dummy argument whose length is specified as an asterisk must 
not appear as an operand for concatenation, except in a character assignment 
statement. 
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Us© 



Syntax 



ENTRY 



Specifies a secondary entry point in a function or subroutine subprogram. It al- 
lows a subprogram reference to begin with a particular executable statement 
within the function or subroutine subprogram in which the ENTRY statement 
appears. 



ENTRY en[( [d [,d] . . .] )] 

where en is a symbolic name of the entry point md d is a dummy argument If 
there are no dummy arguments, the following forms may be used: 

ENTRY en 
ENTRY en() 



Method of Operation 



Each ENTRY statement in a function or subroutine provides an additional name 
which you may use to invoke that subprogram. When you invoke it with one of 
these names, it begins execution at the first executable statement following the 
entry statement which provided that name. 

Within a function, each of its names (the one provided by the FUNCTION state- 
ment, plus the additional ones provided by the ENTRY statements) acts like a 
variable. By the time the function returns, you must have defined the function 
return value by assigning it to one of these variables. 

If any of these variables is of type CHARACTER, all must be of type CHARAC- 
TER; but otherwise, the variables need not all have the same data type. Such 
variables are in effect equivalenced, which has the following implications: 

• First, you need not assign the return value to the same name 
which you used to invoke the function; instead, you may assign 
to any of the names which has the same data type as that one. 

• Second, if you assign to any of the names which does not have 
the same data type as the one you used to invoke the function, 
then the return value becomes undefined. 



c 
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ENTRY 

Rules of Use 



1 . The ENTRY statement may appear anywhere within a function subprogram 
after the FUNCTION statement or within a subroutine after a SUBROUTINE 
statement. 

2. A subprogram may have one or more ENTRY statements. 

3. The entry name en in a function subprogram may appear in a type statement. 

4 + In & function, a local variable with Uie same name o^oiae of tlie^^^^^p 

causes the automatic storage of variables* ' ' 

5. The order, number, type, and names of the dummy arguments in an ENTRY 
statement may be different from the dummy arguments in the FUNCTION, 
SUBROUTINE, or other ENTRY statements in the same subprogram. How- 
ever, each reference to a function or subroutine must use an actual argument 
list that agrees in order, number, and type with the dummy argument list in 
the corresponding FUNCTION, SUBROUTINE, or ENTRY statement. 
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ENTRY 



1 ". An ENTRY statement must not appear between a block IF statement and its 
corresponding END IF statement or between a DO statement and the termi- 
nal statement of the DO-loop, 

2. Within a subprogram, an entry name may not also serve as a dummy argu- 
ment in a FUNCTION, SUBROUTINE, or ENTRY statement or be in an 
EXTERNAL statement 

3. In a function subprogram, an entry name may also be a variable name pro- 
vided the variable name is not in any statement (except a type statement) pre- 
ceding the ENTRY statement of that name. After the ENTRY statement, the 
name can be used as a variable name. 

4. In a function subprogram, if an entry name is of type character, each entry 
name and the name of the function subprogram must also be of type charac- 
ter and must have the same length declared. If any are of length (*), then all 
must be of length (*). 

5. In a subprogram, a name that appears as a dummy argument in an ENTRY 
statement is subject to the following restrictions: 

• It must not appear in an executable statement preceding that EN- 
TRY statement unless it also appears in a FUNCTION, SUB- 
ROUTINE, or ENTRY statement preceding the executable state- 
ment. 

• It must not appear in the expression of a statement function un- 
less the name is also a dummy argument of the statement func- 
tion, appears in a FUNCTION or SUBROUTINE statement, or 
appears in an ENTRY statement preceding the statement func- 
tion. 



( 
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OPTIONS option [ option. 
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Hie following rules apply to OPTIONS statement specifications; 






( 



( 
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$INT2 Option 



$LOG2 Option 



$1NCL0D3B filename , 

option i$ similar to the ^12 eomrii&ncl line option, except for the effect on the 4o- 
fetiltlogkaltype. . 

remainder of tiig program $ncf involves any symbolic names which are assigned a ; 

lilillll|!M& 
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This appendix describe the intrinsic functions provided with FORTRAN, FOR- 
TRAN intrinsic functions are identified by two categories of names: specific and 
generic. An IMPLICIT statement does not change the data type of an intrinsic 
function. 

Generic and Specific Names 

A generic name is the single name given to a class of objects. Intrinsic functions 
that perform the same mathematical function, such as square root, are given a 
single name. For example, the generic name of the square root function is 
SQRT; this function has four specific names for different data types; SQRT, 
DSQRT, CSQRT, and ZSRT (see Part 5 of Table A.l). However, the generic 
name SQRT may be used regardless of the data type of the arguments), 

When a generic name is referenced, the processor substitutes a function call to a 
specific name, depending upon the data type of the arguments. In this way, the 
same name can be used for different types of arguments. 

When an intrinsic function is to be used as the actual argument to another func- 
tion, you must always use the specific name, never the generic name. 

If a generic name is referenced, the type of the result is the same as the type of 
the argument, except for functions performing type conversion, nearest integer, 
and absolute value with a complex argument. Some intrinsic functions allow 
more than one argument, in which case all the arguments must be of the same 
type so that the function can decide which specific name function it should use. 

If the specific name or generic name appears as a dummy argument of a function 
or subroutine, that symbolic name cannot identify an intrinsic function in that 
program unit. 

A name in an INTRINSIC statement must be the specific name or generic name 
of an intrinsic function as given in Table A.l. 

Referencing an Intrinsic Function 

Reference to an intrinsic function takes the following form: 
fun (a[,a]...) 

where: 

fun is the generic or specific name of the intrinsic function. 

a is an actual argument. 
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The actual arguments a constitute the argument list and must agree in order, g- 

number, and type with the specification described in this appendix and with each |^ 

other. Each argument may be any expression. The expression cannot contain an 
concatenation in which one or more of the operand lengths are specified with an 
asterisk. 

A function reference may be used as a primary in an expression. The following 
example involves referencing an intrinsic function: 

X = SQRT(B**2-4*A*C) 

Arguments for which the result is not mathematically defined or exceeds the nu- 
meric range of the processor cause the result of the function to become unde- 
fined. 

Operational Conventions and Restrictions 

For most intrinsic functions, the data type of the result of the intrinsic function is 
the same as the argument(s). If two or more arguments are required or permitted, 
then all arguments must be of the same type. An IMPLICIT statement does not 
change the data type of a specific or generic name of an intrinsic function. 

If an intrinsic function name is used as an actual argument in an external proce- 
dure reference, the name used must be one of the specific names and must appear 
in an INTRINSIC statement. However, names of intrinsic functions for type con- 
version, for lexical relationship, and for choosing the smallest or largest value 
cannot be used as actual arguments. 



List of Functions 



The tables starting on the next page list the available intrinsic functions. Opera- 
tional conventions and restrictions (other than those already given) are listed at 
the end of each table. 

tered; the equivalent double precision {RE AL*$) function is used instead. 



( 



c 
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Function 


Number of 
Arguments 


Generic 
Name 


Specific 
Name 


Type of 
Argument 


Type of 
Result 


Conversion 
to Integer 


1 


INT 


INT 1 

liiiiilllll 

IFIX 1 
IDINT 


Real 
Integer 
Real*4 
Real*4 

Real 

Double 

Complex 


Integer 
Integer 

msmmm 

Integer*4 
Integer 
Integer 
Integer 


Conversion 
to Real 


1 


REAL 


REAL 
11111111111 
'tWM %:." 

FLOAT 

SNGL 


Integer 

Mtger*2 

Integer*4 

Integer 

Double 

Complex 

Real 


Real 

Real*4 

Real 

Real 

Real 

Real 


Conversion 
to Double 


1 


DBLE 


DBLE 

iiiiliilll 

llllillll; 
llllllllll 


Integer 

Double 

Complex 

Meger*2 


Double 

liiiiiililiilliilil 

Double 
Double 

iiHiiiini 

Real*8. 


Conversion 
to Complex 


1,2 


CMPLX 


CMPLX 


Integer 
Real 
Double 
Complex 

CompJex ¥ 16 


Complex 
Complex 
Complex 
Complex 


Conversion 
tDCompte>c*16 


Bill 


llllllll 


DCMPLX 


Integer 
Real 

Double 

Complex* 16 j 


Complex* 16 
Complex* 16 

liiiiiililli 

Complex*16 

liiffiplipl 



1 . INT and MX return result type INTEGER*2 if the — i2 compile option is in effect; otherwise, the result 
type is INTEGER*4. 
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Function 


Number of 
Arguments 


Generic 
Name 


Specific 
Name 


Type of 
Argument 


Type of 
Result 


Maximum 
Value 


2 or more 


MAX 


IMAXO 

JMAXQ 

AMAXO 

MAX1 

AMAX1 

DMAX1 


vltegSL,,,,,,, 

lii^liiii 

Integer*4 

Integer 

Real 

Real 

Double 


lliilplill 

Integer*4 

Real 

Integer 

Real 

Double 


MAXO 


IfctAXO 
OMAXG 


Infeger*2 
Inteeer*4 


llHipllll 

Inteeer*4 


MAX1 




Real*4 


. toeger*2 
Integer*4 


AMAXO 


liliiillll 


Integer*4 


&eal*4 
Real*4 


Minimum 
Value 


2 or more 


MIN 


MINO 

AMINO 
AMIN1 
MINI 

DMIN1 


Integer 

lliillilll 

Integer*! 
Integer 
Real 
Real 

Double 


Integer 

llllllllllll 
Integer*! 

Real 
Real 
Integer 

Double 


MINO 




Ihteger*2 


iiiiiiiiiiii 


MINI 


1MXN1 
JMIKX 


Real*4 
Real*4 


Integer*4 


AMINO 


&JMING 


Integer*4 


Real*4 



( 



c 
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Function 


Number of 
Arguments 


Generic 
Name 


Specific 
Name 


Type of 
Argument 


Type of 
Result 


Truncation 


1 


INT 


AINT 
DINT 

lliilllllll 

lllllllllll 

llliiiiilll 

lliilllllll 


Real 
Double 

Real*4 

liiiiliiiii 

ReH*8 


Real 
Double 

lililll! 

Integer*4 

mteger*4 


Nearest Whole 
Number 


1 


NINT 


■Hi 
Itlltlflil 

NINT 1 

llllllilllf 


iHii^illi 

Real*4 
Real 

llliiillll 


Integer*4 
Integer 

||||g||S| 


IDNINT 


lliilllllll 
iilllllll: 


IBBillll 

Reai*8 


mteger*4 " 


ANINT 


ANINT 
DNINT 


Real 
Double 


Real 
Double 


Functions 


ililiiiiiiiiil 


llll . 


IIIIPIIIII 
11111 


iilllilftlll 

Logical*^ 

itipiiiii! 
lllpilllll 

friteger*2 • 

iHi^iRlil 


lIHttllll 



1. When NINT or IDNINT is specified as an argument in a subroutine call or function refer- 
ence, the compiler supplies either an MTEGER*2 or INTEGER*4 function depending on the 
— i2 command line option (see Chapter 1 of the FORTRAN Programmer 1 s Guide). 
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Function 


Number of 
Arguments 


Generic 
Name 


Specific 
Name 


Type of 
Argument 


Type of 
Result 


Absolute 
Value 


1 


ABS 


IABS 1 

ABS 

DABS 

CABS 

ZABS 

XIABS '' 

JIABS i 


Integer 
Real 
Double 
Complex 

Integer*2 

'integer*! 


Integer 
Real 
Double 
Real 

........Double^^^^ 

Meger*2 
Ihteger*4 


Remaindering 


2 


MOD 


,,v.MQD.^!,,,,,,,,,,,, 

1MOD 

AMOD 2 
DMOD 2 


Infeger*2 
Integer*4 

Real 

Double 


, : ,,,, : Integejr,.:.:,:. : .:.:v:. 

liiipilii 

Integer*4 

Real 

Double 


Transfer 
of Sign 


2 


SIGN 


ISIGN 1 ' 3 
XX3IGN 

SIGN 3 
DSIGN 3 


Integer 

Integer^ 
Integer*4 

Real 

Double 


Integer 

Integer*4 

Real 

Double 


Positive 
Difference 


2 


DIM 


.....IfilM 1 .. 
IIDIM • : 

■■■ 

DIM 
DDIM 


Integer 
Integer*4 

Real 
Double 


.......JntegeS,,,,.,,, 

Integer*4 

Real 

Double 


Double 
Product 


2 


DP ROD 


DPROD 


Real 


Double 


Length of 
Character 

Furry 


1 




LEN 3 


Character 


Integer 



1. The IABS, ISIGN, IPIM, and integer MOD intrinsics accept either INTEGER*2 arguments or INTE- 
GER*4 arguments and the result is the same type. 

2. The result for MOD, AMOD, and DMOD is undefined when the value of the second argument is zero. 

3. If the value of the first argument of ISIGN, SIGN, or DSIGN is zero, the result is zero, 
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Function 


Number of 
Arguments 


Generic 
Name 


Specific 
Name 


Type of 
Argument 


Type of 
Result 


Index of a Substring 


2 


INDEX 


INDEX 1 


Character 


Integer 


Character (returns 
a character of the 
ASCII value of the 
argument). 


1 


CHAR 


CHAR 


Integer 


Character 


Character (returns 
the ASCII value of 
a one-byte charac- 
ter argument. 






I CHAR 1 


Character 


Integer 


Imaginary Part of a 
Complex Argument 


1 


IMAG 


AIMAG 

llliiilil 


Complex 


Real 

lllilliiliii 


Conjugate of a 
Complex Argument 


1 


CONJG 


CONJG 

lllillil 


Complex 
Compkx*l6 


Complex 

lliiilllli 


Square root 


1 


SQRT 


SQRT 2 

DSQRT 2 

CSQRT 2 


Real 

Double 

Complex 


Real 

Double 

Complex 


Exponential 


1 


EXP 


EXP 

DEXP 

CEXP 

llillilll 


Real 
Double 
Complex 
Complex*I6 


Real 

Double 

Complex 

Illlllllllli 


Natural logarithm 


1 


LOG 


ALOG 3 
DLOG 3 
CLOG 3 

lliiilll 


Real 

Double 

Complex 

liiiiliiii 


Real 

Double 

Complex 

liiiiliiii 



1 . The result of INDEX is an integer value indicating the position in the first argument of the first substring 
which is identical to the second argument. The result of INDEX('ABCDEFyCD'), for example, would be 3. 
If no substring of the first argument matches the second argument, the result is zero. INDEX and ICHAR 
return the result type INTEGER*2 if the ■— i2 compile option is in effect; otherwise, the result type is INTE- 
GER*4. 

2. The value of the argument of SQRT and DSQRT must be greater than or equal to zero. The result of 
CSQRT is the principal value with the real part greater than or equal to zero. When the real part is zero, the 
imaginary part is greater than or equal to zero. 

3. The argument of ALOG and DLOG must be greater than zero. The argument of CLOG must not be (0.,0.). 
The range of the imaginary part of the result of CLOG is: -p < imaginary part < p. 
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Function 


Number of 
Arguments 


Generic 
Name 


Specific 
Name 


Type of 
Argument 


Type of 
Result 


Common 
Logarithm 


1 


LOG10 1 


ALOG10 
DLOG10 


Real 
Double 


Real 
Double 


Sine 


1 


SIN 2 


SIN 
DSIN 

...CS.IN 

ZSIN, 


Real 
Double 

Iliiiillllll 


Real 

Double 

Complex 


Sine (degree) 


^^^^^^^^^| 


3XHD 3 


llilliilllll 

lilllilll 


Real*8 




Cosine 


1 


cos 2 


cos 

DCOS 

^zco$ 


Real 
Double 

...Qomple^,,...., 
QM]plex*16 


Real 
Double 
Complex ... 
Complex*i6 


Cosine (degree) 


1 | 


COSD 3 


CGSB 1 
DCOSD 


Beal*4 
Keal*8 


&eal*4 

HffiHIl 


Tangent 


1 


TAN 2 


TAN 
DTAN 


Real 
Double 


Real 
Double 


Tangent (degree 


^^M 


|i||||ii^ 


illilllll 


Real*4 


■■■■ 


Arcsine 


i 


AS IN 4 - 5 - 6 


ASIN 
DAS IN 


Real 
Double 


Real 
Double 


illiiliilliii^ 


11111 


ASIKD 4 >« 


llilittil 
lllllllll 


Reai*4 
Jteal*S 


lliSlllilll 

Real*8 


Arccosine 


i 


ACQS 6 


ACOS 
DACOS 


Real 
Double 


Real 
Double 


^^^^^^H 


llllll 


HHH 


ACOSD 

lliiiiiil 


WmBSB 


lliiillllil 



1. The absolute value of the argument for ALOG10 and DLOG10 must be greater than zero, 

2. The argument for SIN, DSIN, CSIN, ZSIN, COS, DCOS CCOS, ZCOS, TAN, or DTAN must be in radi- 
ans and is treated modulo 2P. 

3. The argument for SIND, COSD, or TAND must be in degrees and is treated as modulo 360. 

4. The absolute value of the arguments for ASIN, DASIN, ASIND, DASIND, ACOS, DACOS, ACOSD, and 
DACOSD must be less than or equal to 1 . 

5. The range of the result for ASIN and DASIN is -p/2 < result < p/2; die range of the result for DASIN is 
< result fs p; and the range of the result for ACOS and DACOS is less than or equal to one. 

6. The result of ASIN, DASIN, ACOS, and DACOS is in radians. 

7. The result of ASIND, DASIND, ACOS, DACOSD is in degrees. 
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Function 


Number of 
Arguments 


Generic 
Name 


Specific 
Name 


Type of 
Argument 


Type of 
Result 


Arctangent 


1 


ATAN 1 


ATAN 
DATAN 


Real 
Double 


Real 
Double 


^^^^^^^M 




WMillll 


iiniiti 
iiiiiii 


■Hi 

iilitiiii 


1111111 


Arctangent 


2 


ATAN2 1 - 3 


ATAN2 
DATAN2 


Real 
Double 


Real 
Double 




llSlllllli 


PlBHlll! 


llliiiil 

InHl 


llllilllll 

Am 


illililit 


Hyperbolic Sine 


1 


SINH 


SINH 
DSINH 


Real 
Double 


Real 
Double 


Hyperbolic Cosine 


l 


COSH 


COSH 
DCOSH 


Real 
Double 


Real 
Double 


Hyperbolic Tangen 


l 


TANH 


TANH 
DTANH 


Real 
Double 


Real 
Double 


Logically Greater 
Than or Equal 


2 


LGE 5 


LGE 


Character 


Logical 


Logically Greater 
Than 


2 


LGT 5 


LGT 


Character 


Logical 


Logically Less 
Than or Equal 


2 


LLE 5 


LLE 


Character 


Logical 


Logically Less 
Than 


2 


LLT 5 


LLT 


Character 


Logical 



1 . The result of ATAN, DATAN, ATAN2, and DTAN2 is in radians. 

2. The result of ATAND, DATAND, ATAN2D, and DATAN2D is in degrees. 

3. If the value of the first argument of ATAN2 or DATAN2 is positive, the result is positive. When the value 
of the first argument is zero, the result is zero if the second argument is positive and P if the second argument 
is negative. If the value of the first argument is negative, the result is negative. If the value of the second 
argument is zero, the absolute value of the result is P/2, Both arguments must not have the value zero. 

4. Note 3 on this page also applies to ATAN2 and DTAN2D, except for the range of the result, which is: -180 
degrees < result < 180 degrees. 

5. The character relational intrinsics (LLT, LGT, LLE, and LGE) return result type LOGICAL*2 if the $log2 
(Chapter 11) compile option is in effect; otherwise, the result type is LOGICAL*4. 
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Function 



liiiiiiijiiiii 



iiiwiii©!! 



Bitwise Not 



Bitwise 
Exclusive 



Bitwise 
Shift • : ; 



Bitwise 
Circular 

llllllll 



Number of 
Arguments 



Generic 

Name 



Specific 
Name 



iiiii 

will 



m 



§mmgg§ 

IDS j 

OR 

llll ' I 

V( n>4i i 'H' > >'H Y)'i'i'i.i i i 1 1.1 i.i. i .i.i.i. i 



JNOT 
NOV. | 



iillil 

vlIEOR 

illlll 

illlll 



USBFT 

illiili 
||||§§| 
lllllll 

RSHtfT 



W 



I2SHIPTC 

illllllll 
llllllili 



Type of 
Argument 



siiipii 

Integer. 



integer*! 

iiBiiiii 

Integer i 
Integer 



Integer 

iiiiiiii-s 



i||||pi|| 

■•liilllll 

Integer 

iliilliiillll 



Infeger*2 

liiiiiiiii 

Integer j 

Integer 
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Integer 

Integer 
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Integer 
integer 
integer 
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integer 

Integer 



Integer^ 
integer 

Integer 
Integer ., 
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1. The following intrinsics accept either INTEGER*2 arguments or XNTEGER*4 arguments and the result is 
the same type as the following arguments: 



IANw 


ISHFT 


IOR 


NOT 


IEOR 





When one of the intrinsic names listed in this note is specified as an argument in a subroutine call or function 
reference, the compiler supplies either an INTEGER*2 or INTEGER*4 function depending on the —12 com- 
mand line option. 
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Index 



Symbols 

$ edit descriptor, 9-30 

+ addition, identity operator, 3-2 

- subtraction, negation operator, 3-2 

* multiplication operator, 3-2 

** exponentiation operator, 3-2 

/(slash) editing, 9-31 

/ division operator, 3-2 



A edit descriptor 
general description, 9-24 — 9-25 
using variable format descriptor with, 9-5 

ABS intrinsic function, A-6 

ACCEPT statement, 8-3 

access methods, 7-5 

ACCESS specifier 
in INQUIRE statement, 8-13 
in OPEN statement, 8-18 

ACOS intrinsic function, A-8 

ACOSD intrinsic function, A-8 

aggregate, assignment statements, 5-6 

AND (bitwise) insrinsic function, A-10 

.AND. logical operator, 3-10, 3-13 

ANINT intrinsic function, A-5 

arguments 
dummy, 10-4 
in a function reference, 10-6 

arithmetic 
expressions, 3-1 
operands, 3-3 
relational expressions, 3-9 

array 
passing as an argument, 10^4 
size, 2-17 
subscripts, 2-18 

array name, as format identifier, 9-1 

arrays, 2-14 

ASSIGN statement, 5-6 

assignment statements 
aggregate, 5-6 
character, 5-5 



conversion rules, 5-2 
logical, 5-5 
statement label, 5-6 

ASSOCIATEVARIABLE specifier, in OPEN state- 
ment, 8-19 

ATAN2 intrinsic function, A^9 

ATAND intrinsic function, A-9 

ATAND2 intrinsic function, A-9 

AUTOMATIC, statement, 4-3 

B 

BACKSPACE statement, 8-4 
bit, constants, 2-9 
bit clear intrinsic function, A-l 1 
bit extraction intrinsic function, A-l 1 
bit set intrinsic function, A-l 1 
bit test intrinsic function, A-l 1 
blank edit descriptors, 9-29 
BLOCK DATA, statement, 4-5 
BN edit descriptor, 9-29 
BYTE type statement, 4-13 
BZ edit descriptor, 9-29 



CALL statement, 6-3 

CARRIAGECONTROL specifier 
in INQUIRE statement, 8-14 
in OPEN statement, 8-19 

CHAR intrinsic function, A-7 

character 
assignment statements, 5-5 
constants, 2-7 
data type statements, 4-16 

character edit descriptor, 9-26 

character expressions 
expressions, 3-6 
relational, 3-9 

character set, 1-1 

characters, special, 1-1 

cilist (control information list), 8-43 

CLOSE statement, 8-5 
disconnecting a unit, 7-7 
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$COL120 in-line option, 1 1-2 

SCOL72 in-line option, 1 1-2 

colon edit descriptor, 9-29 

comment lines, 1-4 

COMMON, statement, 4-6 

complex 
constants, 2-6 
type statements, 4-13 

complex data editing, 9-30 

concatenation operator, 3-7 

CONJG intrinsic function, A-7 

connected unit, 7-7 

constant expressions 
arithmetic, 3-4 
character, 3-8 
integer, 3-5 

constants, 2-2— 2-3, 2-4 
bit, 2-9 
character, 2-7 
complex, 2-6 
Hollerith, 2-8 
hexadecimal integer, 2-3 
integer, 2-3 
logical, 2-7 
octal integer, 2-4 
real, 2-4, 2-5 

continuation line, 1-6 

CONTINUE statement, 6-5 

control information list, 8-43 

control characters, 1-2 

control statements, 6-1 

conversion rules, for assignment statements, 5-2 

COS intrinsic function, A-8 

COSD intrinsic function, A-8 

COSH intrinsic function, A-9 



DATA, statement, 4-10 

DBLE intrinsic function, A-3 

DCMPLX intrinsic function, A-3 

debugging lines, 1-5 

declarators, array, 2-15 

DECODE statement, 8-7 

DEFAULTFILE specifier 
in INQUIRE statement, 8-13 
in OPEN statement, 8-20 

DEFINE FILE statement, 8-8 

DELETE statement, 8-9 

%DESCR built-in function, 10-5 

descriptors, repeatable, 9-3 

DIM intrinsic function, A-6 

DIMENSION, statement, 4-18, 4-33 

direct access 
file, 7-6 

READ statement, 8-25 
WRITE statement, 8-36 

DIRECT specifier, in INQUIRE statement, 8-14 

disconnecting a unit, 7-7 

DISPOSE specifier 
in CLOSE statement, 8-5 
in OPEN statement, 8-20 

division, integer, 3-6 

DO statement, 6-6 
effect of — onetrip option, 6-7 

DO statement (implied), 5-8 

DO WHILE statement, 6-10 

dollar sign, edit descriptor for, 9-30 

DOUBLE COMPLEX, type statement, 4-13 

DOUBLE PRECISION, type statement, 4-13 

double precision, constants, 2-5 

DPROD intrinsic function, A-6 

dummy arguments, 10-4 



c 



( 



D field descriptor, 9-18 
data initialization, 5-7 
data transfer rules, 8-49 
**Empty**,2-2 
data types, 2-1 



E field descriptor, 9-16 

ENTRY statement, 10-12—10-15 

edit descriptor, 9-29 
purpose, 9-9 
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reference, 9-28— 9-29 

ELSE IF statement, 6-13 

ELSE statement, 6-1 1 

ENCODE statement, 8-10 

END DO statement, 6-16 

END IF statement, 6-17 

END specifier, 8-47 

END statement, 6-15 

end-of-file specifier, 8-47 

ENDFILE statement, 8-11 

endfile record, 7-2 

JEQ. relational operator, 3-8 

EQUIVALENCE, statement, 4-19 

.EQV. logical operator, 3-10, 3-13 

ERR (error) specifier, 8-46 

escape sequences, 1-2 

EXIST specifier, in INQUIRE statement, 8-14 

EXP intrinsic function, A-7 

exponentiation, 3-6 

expressions 
arithmetic, 3-1 

interpreting, 3-2 
arithmetic constant, 3-4 
arithmetic relational, 3-9 
character, 3-6 
character constant, 3-8 
character relational, 3-9 
evaluating, rules for, 3-13 
integer constant, 3-5 
logical, 3-10 

interpreting, 3-12 
parenthensis in, interpreting, 3-14 
relational, 3-8 

EXTERNAL, statement, 4-22 

external files, 7-4 



F field descriptor, 9-14 

FORMAT statement 
general rules, 9-7 
input rules, 9-8 
interaction with input/output list, 9-32 



output rules, 9-8 
specifications, 9-2—9-10 

$F66 in-line option, 1 1-2 

JFALSE. relational expression, 3-8 

field descriptors 
defaults, 9-10 
numeric, 9-9 
purpose, 9-9 

file, access, 7-5 

FILE specifier 
in INQUIRE statement, 8-13 
in OPEN statement, 8-18 

files 
definition, 7-3 
external, 7-4 
internal, 7-4 

FIND statement, 8-12 

FMT (format) specifier, 8-44 

form feed character, 1-2 

FORM specifier 
in INQUIRE statement, 8-15 
in OPEN statement, 8-20 

format 
(FMT) specifier, 8-44 
expressions, variable, 9-5 
specifications, purpose, 9-1 
specifier, usage, 9-3 — 9-5 

formatted 
I/O statements, 7-2 
input/output 

data transfer rules, 8-49 

format identifier in, 9-1 
READ statement 

function, 8-29 

syntax, 8-28 
records, 7-1 

WRITE statement, function, 8-40 
WRITE statement (sequential), syntax, 8-39 

FORMATTED specifier, in INQUIRE statement, 8-15 

FUNCTION statement, 10-9—10-1 1 

function, definition, 10-1 

function subprogram 
definition, 10-1 
using, 10-6—10-9 

functions, built-in, 10-5 

G 

G field descriptor, 9-19 
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.GE. relational operator, 3-8 

GO TO statement 
computed, 6-19 
symbolic name, 6-20 
unconditional, 6-18 

.GT, relational operator, 3-8 

H 

H field descriptor, 9-26 

Hollerith, constants, 2-8 

Hollerith constant, used as an argument, 10-7 

hexadecimal, constants, 2-3 



I field descriptor, 9-10 

IDNINT intrinsic function, A-5 

IF statement 
arithmetic, 6-21 
branch logical, 6-22 
test conditional, 6-23 

IMAG intrinsic function, A-7 

IMPLICIT, statement, 4-24 

implied-DO list, 8-48 

$INCLUDE in-line option, 11-3 

INDEX intrinsic function, A-7 

indexed 
READ statement, 8-26 
WRITE statement, 8-37 

indexed (keyed) access, file, 7-6 

initialization data, 5-7 

input 
list, contents of, 8-47 
list directed, 9-33 

input/output 
(ios) specifier, 8-46 
data transfer rules, 8-49 
formatted, format identifier in, 9-1 
list (iolist), 8-47 

input/output list, interaction with FORMAT, 9-32 

input/output statements 
formatted, 7-2 
list-directed, definition, 7-3 



summary, 8-1 
unformatted, 7-2 

INQUIRE statement, 8-13 

INT intrinsic function, A-3, A-5 

$INT2 in-line option, 11-3 

integer 
constant expressions, 3-5 
division, 3-6 
type statements, 4-13 

internal 
READ statement, 8-27 
WRITE statement, 8-38 

internal files, 7-4 

INTRINSIC, statement, 4-28 

intrinsic functions 
conventions and restrictions, A-2 
using, A-l— A-5 

iolist (input/output list), 8-47 

ios (input/output) specifier, 8-46 



K 



KEY 
key-field-value specifier, 8-45 
specifier, in OPEN statement, 8-21 

key value, in OPEN and READ, 7-6 

BLANK specifier, 8-46 
in INQUIRE statement, 8-14 
in OPEN statement, 8-19 

key-reference specifier, 8-46 

KEYED specifier, in INQUIRE statement, 8-15 

KEYID specifier, 8-46 



L edit descriptor, 9-23 

label 
assignment, 5-6 
rules, 1-7 

JLE. relational operator, 3-8 

leyed access, file, 7-6 

LGE intrinsic function, A-9 

LGT intrinsic function, A-9 

list-directed 
formatting, 9-33 
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READ statement (internal), syntax, 8-27 
READ statement (sequential) 

function, 8-29 

syntax, 8-28 
WRITE statement (sequential) 

function, 8-40 

rules, 8-40— 8-42 

syntax, 8-39 

list-directed I/O statements, I/O statements, definition, 

7-3 

list-directed READ (sequential), READ statement (se- 
quential), rules, 8-30 

list-directed WRITE statement (internal), syntax, 8-38 

list-directed WRITE statement (sequential), rules, 
8^1 

lists 
implied-do, 8-48 
input, 8-47 
output, 8-48 

LLE intrinsic function, A-9 

LLT intrinsic function, A-9 

%LOC built-in function, 10-5 

LOG intrinsic function, A-7 

LOG10 intrinsic function, A-8 

$LOG2 in-line option, 1 1-3 

logical 
assignment statements, 5-5 
constants, 2-7 
type statements, 4-13 

logical expressions, 3-10 

.LT. relational operator, 3-8 

M 

main program, 1-7 

MAX intrinsic function, A-4 

MAXREC specifier, in OPEN statement, 8-21 

MIN intrinsic function, A-4 

MOD intrinsic function, A-6 

N 

NAME specifier, in INQUIRE statement, 8-15 
NAMED specifier, in INQUIRE statement, 8-15 



NAMELIST, statement, 4-29 

namelist (NML) specifier, 8-45 

namelist-directed 
READ statement 

function, 8-29 

Syntax, 8-28 
READ statement (sequential), rules, 8-31—8-33 
WRITE statement (sequential), syntax, 8-39 
WRITE statement(sequential) 

function, 8-40 

rules, 8-42 

names 
array, 2-14, 2-15 
substrings, 2-11 
symbolic, 1-3 

.NE. relational oeprator, 3-8 

.NEQV. logical operator, 3-10, 3-13 

new line character, 1-2 

NEXTREC specifier, in INQUIRE statement, 8-16 

NINT intrinsic function, A-5 

NML (namelist) specifier, 8-45 

NOT (bitwise) insrinsic function, A-10 

.NOT, logical operator, 3-40, 3-13 

null character, 1-2 

NUMBER specifier, in INQUIRE statemer«, 8-16 

numeric type statements, 4-13 



O field descriptor, 9-12 

octal, constants, 2-4 

— onetrip compiler option, in Do statement, 6-7 

OPEN statement 
connecting to a unit, 7-7 
description, 8-18 
for keyed access files, 7-6 

OPENED specifier, in INQUIRE statement, 8-16 

operands 
arithmetic, 3-3 
character, 3-7 
logical, 3-11 
relational, 3-8 

operators 
arithmetic, 3-2 
concatenation, 3-7 
logical, 3-10 
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relational, 3-8 

options, in-line, 1 1-2 — 1 1-4 

OPTIONS statement, 11-1—11-2 

OR (bitwise) insrinsic function, A-10 

OR (exclusive bitwise) insrinsic function, A-10 

.OR. logical operator, 3-10, 3-13 

ORGANIZATION specifier, in INQUIRE statement, 
8-16 

output, list-directed, 9-35 

output list, contents of, 8-48 



P edit descriptor, 9-2 1 

PROGRAM, statement, 4-35 

PARAMETER, statement, 4-30 

parentheses, interpretating in expressions, 3-14 

PAUSE statement, 6-25 

plus sign, edit descriptor for, 9-29 

preconnected unit, 7-7 

PRINT statement, 8-24 

Q 

Q edit descriptor, 9-27 

R 

REWIND statement, 8-33 

READ statement 
direct access, S-25 
indexed, 8-26 
internal, 8-27 
keyed access, 7-6 
sequential, 8-28 

READONLY specifier, in OPEN statement, 8-22 

real, type statements, 4-13 

REAL intrinsic function, A-3 

REC (record) specifier, 8-45 

RECL specifier 
in INQUIRE statement, 8-16 
in OPEN statement, 8-21 



RECORD, statement, 4-36 

records 
definition, 7-1 
endfile,7-2 
formatted, 7-1 
unformatted, 7-1 

RECORDSIZE specifier, in OPEN statement, 8-22 

RECORDTYPE specifier 
in INQUIRE statement, 8-46 
in OPEN statement, 8-22 

%REF built-in function, 10-5 

relational expressions, 3-8 
arithmetic, 3-9 

repeat count 
in edit descriptors, 9-25 
interaction with input/output list, 9-32 

RETURN statement, 6-26 

REWRITE statement, 8-34 



SAVE, statement, 4-37 

sequential 
file access, 7-5 
READ statement, 8-28 
WRITE statement, 8-39 

SEQUENTIAL specifier, in INQUIRE statement, 8-17 

SHARED specifier, in OPEN statement, 8-22 

SHIFT (bitwise) insrinsic function, A-10 

SHIFT CIRCULAR (bitwise) insrinsic function, A-10 

SIGN intrinsic function, A-6 

SIN intrinsic function, A-8 

SIND intrinsic function, A-8 

SINH intrinsic function, A-9 

size, array, 2-17 

slash editing, 9-31 

source program, syntax rules, 1-4 

SP edit descriptor, 9-29 

specification statements, 4-1—4-4 

SQRT intrinsic function, A-7 

SS edit descriptor, 9-29 

statement, 8-40 

statement function 
definition, 10-1 
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referencing, 10-3 
restrictions, 10-3—10-4 
syntax and rules, 10-2—10-4 

STATIC, statement, 4-3 

STATUS specifier 
in CLOSE statement, 8-5 
in OPEN statement, 8-22 

STOP statement, 6-27 

storage, of arrays, 2-17 

STRUCTURE, statement, 4-39-4-43 

subprogram 
definition, 10-1 
using, 10-6—10-9 

subprograms, definition, 1-8 

SUBROUTINE statement, 10-1 1 

subroutine subprogram 
definition, 10—1 
using, 10-6—10-9 

substrings 
character, 2-11 
names, 2-1 1 
values,2-12 

symbols, valid names, 1-3 

syntax conventions, v 



U 



unformatted 
input/output, general rules, 8-49 
READ statement 

function, 8-29 

rules, 8-29 

syntax, 8-28 
WRITE statement (sequential), syntax, 8-39 

unformatted I/O statements, 7-2 

unformatted records, 7-1 

UNFORMATTED specifier, in INQUIRE statement, 
8-17 

UNION declaration 
example, 4-42 
syntax, 4-40 

UNIT (unum) specifier, 8-44 

units, 7-7 

UNLOCK statement, 8-35 

unum (UNIT) specifier, 8-44 

V 

%VAL built-in function, 10-5 
variable format expressions, 9-5 
variables, definition, 2-1 1 
VOLATILE, statement, 4-43 



W 



T edit descriptor, 9-28 

tab character formatting, 1-5 

TAN intrinsic function, A-8 

TAND intrinsic function, A-8 

TANH intrinsic function, A-9 

TL edit descriptor, 9-28 

TR edit descriptor, 9-28 

.TRUE, relational expression, 3-8 

TYPE specifier, in OPEN statement, 8-23 

TYPE statement, 8-24 

type statements 
character, 4-16 
numeric, 4-13 



WRITE statement 
direct access, 8-36 
indexed, 8-37 
internal, 8-38 
sequential, 8-39 



X edit descriptor, 9-28 

.XOR. logical operator, 3-10, 3-13 



Z field descriptor, 9-13 
ZEXT intrinsic function, A-5 
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Customer Response Card 

Your comments, which can assist us in improving our products and our 
publications, are welcome. 

If you wish to reply, be sure to include your name and address, and the name 
and part number that appears on the first page of this manual. 

Thank you for your cooperation. 

No postage necessary if mailed in the U. S. A. 

After writing comments, detach this page and then fold, seal, and mail. 
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Name of manual: 
Part number: 



MIPS may use and distribute any of the information you supply in any way it 
believes appropriate without incurring any obligation whatever. You may. of 
course, continue to use the information you supply. 
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